Guest User

Untitled

a guest
Nov 19th, 2017
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.90 KB | None | 0 0
  1. <?php
  2. set_time_limit(0);
  3. function asal($sayi)
  4. {
  5. $kok=sqrt($sayi);
  6. if ($sayi == 1 || $sayi == 0) {
  7. return 0;
  8. }
  9.  
  10. for ($i=2; $i<=$kok; $i++){
  11. if($sayi % $i==0) return 0;
  12. }
  13. return 1;
  14. }
  15.  
  16. function asalCarpanlar($param)
  17. {
  18. $asallar = array();
  19. for ($i=2; $i <= $param; $i++) {
  20. if ($param%$i==0) {
  21. if (asal($i)) {
  22. array_push($asallar, $i);
  23. }
  24. }
  25. }
  26. return $asallar;
  27. }
  28.  
  29. function carpanlarToplami($param)
  30. {
  31. $asallar = asalCarpanlar($param);
  32. $deger = 0;
  33. foreach ($asallar as $asal) {
  34. while($param%$asal==0){
  35. $spl = str_split($asal);
  36. foreach ($spl as $value) {
  37. $deger = $deger+$value;
  38. }
  39. $param= $param/ $asal;
  40. }
  41. }
  42. return $deger;
  43. }
  44.  
  45. $sayac = 0;
  46. for ($i=1; $i < 100; $i++) {
  47. $sayi = str_split($i);
  48. if (asal($i) == false) {
  49. if (carpanlarToplami($i) == array_sum($sayi)) {
  50. echo $i . '<br/>';
  51. $sayac++;
  52. }
  53. }
  54.  
  55. }
  56. echo $sayac;
  57. ?>
Add Comment
Please, Sign In to add comment