A078774 n*phi(n*phi(n)).

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

Links

Table of n, a(n) for n=1..45.

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: A285885 A273348 A198951 * A174016 A265725 A129952

Adjacent sequences: A078771 A078772 A078773 * A078775 A078776 A078777

Keyword

nonn

Author

Jon Perry, Jan 09 2003

Status

approved