OFFSET
0,1
FORMULA
See Program.
EXAMPLE
list to n=0 corresponding to c[0]=1: {1,2,3,4} started with first nonprime ended with first composite; n=10: composite[10]=18, a(10)=length[{16,26,28}]=3.
MATHEMATICA
c[x_] := FixedPoint[x+c[ # ]+1&, x] lfp[x_] := Length[FixedPointList[x+c[ # ]+1&, x]]-1 Table[lfp[c[w]]-1, {w, 1, 128}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 29 2002
STATUS
approved