3 lines
167 B
Text
3 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]]
|