A372638 a(n) = (1/6) * Sum_{k=1..n} phi(7*k).

1, 2, 4, 6, 10, 12, 19, 23, 29, 33, 43, 47, 59, 66, 74, 82, 98, 104, 122, 130, 144, 154, 176, 184, 204, 216, 234, 248, 276, 284, 314, 330, 350, 366, 394, 406, 442, 460, 484, 500, 540, 554, 596, 616, 640, 662, 708, 724, 773, 793, 825, 849, 901, 919, 959, 987, 1023

Offset: 1

Author

Seiichi Manyama, May 08 2024

Keywords

• nonn

Links

• Eric Weisstein's World of Mathematics, Totient Function.

Crossrefs

Column k=7 of A372619.

Partial sums of A359102.

Cf. A000010.

Programs

Mathematica

Accumulate[Table[EulerPhi[7*n], {n, 1, 60}]]/6 (* Amiram Eldar, May 08 2024 *)

PARI

a(n) = sum(k=1, n, eulerphi(7*k))/6;

Formula

a(n) ~ (49/(16*Pi^2)) * n^2. - Amiram Eldar, May 08 2024