login
A078774
n*phi(n*phi(n)).
0
1, 2, 6, 16, 40, 24, 84, 128, 162, 160, 440, 192, 624, 336, 480, 1024, 2176, 648, 2052, 1280, 1512, 1760, 5060, 1536, 5000, 2496, 4374, 2688, 9744, 1920, 7440, 8192, 5280, 8704, 6720, 5184, 15984, 8208, 11232, 10240, 26240, 6048, 21672, 14080, 12960
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
Sequence in context: A273348 A198951 A371709 * A174016 A265725 A129952
KEYWORD
nonn
AUTHOR
Jon Perry, Jan 09 2003
STATUS
approved