A075490 Sum[phi[n]^j,j = 1..n].

1, 2, 14, 30, 1364, 126, 335922, 87380, 12093234, 1398100, 111111111110, 22369620, 116719860413532, 94036996914, 40210710958664, 321685687669320, 314824432191309680912, 121871948002098, 749896248023298716143374

Offset

1,2

Links

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

Example

n=5: phi[5]=4, 4+16+64+256+1024=1364 n=22: phi[22]=10, a(22)=10+100+...10^22=11111111111111111111110, n=101: a(101)=1010101.....010100, etc.

Mathematica

Table[Apply[Plus, Table[EulerPhi[w]^j, {j, 1, w}]], {w, 1, 25}]

Crossrefs

Cf. A000010.

Sequence in context: A259710 A093794 A294561 * A031301 A335200 A294558

Adjacent sequences: A075487 A075488 A075489 * A075491 A075492 A075493

Keyword

easy,nonn

Author

Labos Elemer, Sep 26 2002

Status

approved