OFFSET
1,1
MATHEMATICA
Reap[Do[PFL=PrimeFactorList[n]; sopf=Plus@@PFL;
If[Length[PFL]>1&&Mod[n, sopf]==0, Sow[n/sopf]], {n, 2, 2000}]][[2, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 02 2010
STATUS
approved