OFFSET
1,2
REFERENCES
George E. Andrews, "Number Theory," Dover Books, NY, 1971, Page 84.
MATHEMATICA
Do[ If[ Mod[ n, 6 ]!=0, If[ Mod[ DivisorSigma[ 1, n ]*EulerPhi[ n ], n ]==0, Print[ n ] ] ], {n, 1, 25000} ]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jul 22 2000
STATUS
approved