A175650 a(n)=A066031(n)/sopf(A066031(n)).

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

Author

Zak Seidov, Aug 02 2010

Keywords

• nonn

Crossrefs

A008472, A066031.

Programs

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]]