OFFSET
1,1
PROG
(PARI) s(n) = sigma(n)-n; for(n=2, 10^6, if(issquare(eulerphi(s(n^3))), print(n)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 19 2001
EXTENSIONS
More terms from Dean Hickerson, Aug 22 2001
STATUS
approved