|
|
A064018
|
|
a(n) = A002088(10^n) = Sum_{k <= 10^n} phi(k), sum of the Euler totients phi = A000010.
|
|
6
|
|
|
1, 32, 3044, 304192, 30397486, 3039650754, 303963552392, 30396356427242, 3039635516365908, 303963551173008414, 30396355092886216366, 3039635509283386211140, 303963550927059804025910, 30396355092702898919527444, 3039635509270144893910357854, 303963550927013509478708835152
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
s = 0; k = 1; Do[ While[ k <= 10^n, s = s + EulerPhi[ k ]; k++ ]; Print[ s ], {n, 0, 8} ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|