|
|
A075490
|
|
Sum[phi[n]^j,j = 1..n].
|
|
0
|
|
|
1, 2, 14, 30, 1364, 126, 335922, 87380, 12093234, 1398100, 111111111110, 22369620, 116719860413532, 94036996914, 40210710958664, 321685687669320, 314824432191309680912, 121871948002098, 749896248023298716143374
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|