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,2

Links

Table of n, a(n) for n=1..57.

Eric Weisstein's World of Mathematics, Totient Function.

Formula

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

Mathematica

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

Prog

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

Crossrefs

Column k=7 of A372619.

Partial sums of A359102.

Cf. A000010.

Sequence in context: A064374 A384442 A000885 * A395512 A394532 A068336

Adjacent sequences: A372635 A372636 A372637 * A372639 A372640 A372641

Keyword

nonn

Author

Seiichi Manyama, May 08 2024

Status

approved