login
A175650
a(n)=A066031(n)/sopf(A066031(n)).
0
3, 6, 5, 7, 9, 7, 12, 10, 15, 14, 18, 11, 13, 24, 21, 13, 27, 20, 11, 30, 21, 28, 25, 36, 45, 19, 26, 48, 35, 42, 26, 35, 33, 19, 54, 40, 22, 49, 60, 19, 17, 56, 33, 50, 39, 72, 49, 75, 63, 23, 81, 23, 90, 38, 52, 63, 96, 70, 84, 52, 66, 38, 108, 31, 80, 34, 44, 98, 120, 51, 34
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