OFFSET
1,1
FORMULA
See Program.
EXAMPLE
a=10,p(10)=29, list={29,40,42,43,44}.
MATHEMATICA
lfp[x_] := Length[FixedPointList[x+PrimePi[ # ]+1&, x]]-1 Table[lfp[Prime[w]]-1, {w, 1, 128}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 29 2002
STATUS
approved