OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..269 (terms below 10^10)
MATHEMATICA
Do[ If[ !PrimeQ[ n ], If[ Mod[ DivisorSigma[ 3, n ]+EulerPhi[ n ]^3, n ]==0, Print[ n ] ] ], {n, 1, 500000} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 19 2000
STATUS
approved