|
Search: id:A064016
|
|
|
| A064016 |
|
Sum_{ k <= 10^n } cototient(k). |
|
+0
1
|
|
| 0, 23, 2006, 196308, 19607514, 1960399246, 196036947608, 19603648572758, 1960364533634092, 196036449326991586
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Conjecture: It would appear that the sum from 1 to n approaches the limit 0.1960364*n^2 = (1/2 - 3/Pi^2)*n^2.
|
|
MATHEMATICA
|
s = 0; k = 1; Do[ While[ k <= 10^n, s = s + k - EulerPhi[ k ]; k++ ]; Print[ s ], {n, 0, 8} ]
|
|
CROSSREFS
|
Cf. A051953, A002088, A063986.
Sequence in context: A034243 A002439 A132395 this_sequence A138735 A132937 A068655
Adjacent sequences: A064013 A064014 A064015 this_sequence A064017 A064018 A064019
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 07 2001
|
|
EXTENSIONS
|
a(9) from Jud McCranie, Jun 25, 2005.
|
|
|
Search completed in 0.002 seconds
|
