OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..420
MATHEMATICA
Select[Range[2600000], Divisible[Total[Divisors[#]^9], (EulerPhi[#])^2]&] (* Harvey P. Dale, Mar 04 2011 *)
PROG
(PARI) for(n=1, 10000000, if(Mod(sigma(n, 9), eulerphi(n)^2)==0, print1(n, ", "))) \\ C. Ronaldo
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 19 2004
EXTENSIONS
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 18 2005
STATUS
approved