OFFSET
1,1
LINKS
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}]]; m = 12000 ; Position[Range[m] - Accumulate @ Array[f, m], 2] // Flatten (* Amiram Eldar, May 03 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jun 17 2020
STATUS
approved