OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x]; Table[c[j^2], {j, 1, 100}]
PROG
(PARI) lista(cmax) = {my(k = 0, m = 1, m2 = 1); forcomposite(c = 1, cmax, k++; if(k == m2, print1(c, ", "); m++; m2 = m^2)); } \\ Amiram Eldar, Oct 04 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 19 2002
STATUS
approved