OFFSET
1,2
EXAMPLE
a(3)=3*phi(3*phi(3))=3*phi(6)=6
MATHEMATICA
Table[n*EulerPhi[n*EulerPhi[n]], {n, 50}]
PROG
(PARI) for (n=1, 100, print1(n*eulerphi(n*eulerphi(n))", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Jan 09 2003
STATUS
approved