4 lines
167 B
Text
4 lines
167 B
Text
|
ClearAll[AttractiveNumberQ]
|
||
|
|
AttractiveNumberQ[n_Integer] := FactorInteger[n][[All, 2]] // Total // PrimeQ
|
||
|
|
Reap[Do[If[AttractiveNumberQ[i], Sow[i]], {i, 120}]][[2, 1]]
|