|
1, 3, 6, 10, 14, 20, 26, 34, 43, 51, 61, 73, 85, 97, 109, 125, 141, 159, 177, 193, 211, 231, 253, 277, 297, 321, 348, 372, 400, 424, 454, 486, 516, 548, 572, 608, 644, 680, 716, 748, 788, 824, 866, 906, 942, 986, 1032, 1080, 1122, 1162, 1210, 1258, 1310, 1364, 1404
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Accumulate[Table[EulerPhi[6*n], {n, 1, 60}]]/2 (* Amiram Eldar, May 08 2024 *)
|
|
PROG
|
(PARI) a(n) = sum(k=1, n, eulerphi(6*k))/2;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|