A334714 Partial sums of A335294.

1, 2, 3, 3, 4, 5, 6, 7, 7, 7, 8, 9, 11, 12, 13, 13, 14, 15, 17, 18, 19, 19, 20, 21, 22, 23, 23, 23, 24, 25, 27, 29, 30, 31, 31, 31, 32, 33, 34, 35, 37, 38, 40, 42, 43, 43, 44, 45, 46, 47, 47, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 59, 60, 61, 61, 61, 62, 63, 64, 65, 67, 68, 70, 72, 73, 73, 73, 73, 74, 75, 76, 77, 79

Offset

1,2

Links

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Altug Alkan, Andrew R. Booker, and Florian Luca, On a recursively defined sequence involving the prime counting function, arXiv:2006.08013 [math.NT], 2020.

Mathematica

f[1] = 1; f[n_] := f[n] = PrimePi[n] - PrimePi[Sum[f[k], {k, 1, n - 1}]]; Accumulate @ Array[f, 100] (* Amiram Eldar, May 03 2021 *)

Crossrefs

Cf. A335294.

Sequence in context: A334869 A326694 A053207 * A138467 A208746 A230490

Adjacent sequences: A334711 A334712 A334713 * A334715 A334716 A334717

Keyword

nonn

Author

N. J. A. Sloane, Jun 16 2020

Status

approved