OFFSET
1,1
FORMULA
See program below.
EXAMPLE
n=1000000:the list={1000000,1078499,1084157,1084577,1084604,1084605}, its length including initial term is 6, while composite[1000000]=1084605.
MATHEMATICA
Table[Length[FixedPointList[w+PrimePi[ # ]+1&, w]]-1, {w, 1, 128}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 22 2002
STATUS
approved