1 REM https://rosettacode.org/wiki/Attractive_numbers 10 FOR x = 1 TO 120 20 LET n = x 30 LET c = 0 40 IF n MOD 2 <> 0 THEN 70 50 LET n = INT(n / 2) 60 LET c = c + 1 70 IF n MOD 2 = 0 THEN 40 80 FOR i = 3 TO SQR(n) STEP 2 90 IF n MOD i <> 0 THEN 120 100 LET n = INT(n / i) 110 LET c = c + 1 120 IF n MOD i = 0 THEN 90 130 NEXT i 140 IF n <= 2 THEN 160 150 LET c = c + 1 160 IF NOT(PRIME(c)) THEN 180 170 PRINT x, 180 NEXT x
Return to Example Index