OFFSET
0,2
COMMENTS
For all 0 < n < 1000, a(n) < A104272(n). - John W. Nicholson, May 22 2011
LINKS
T. D. Noe, Table of n, a(n) for n = 0..10000
MATHEMATICA
nn=100; k=0; t=Table[0, {nn}]; cnt=0; While[cnt<nn, k++; prms=PrimePi[k(k+1)/2] - PrimePi[k(k-1)/2]; If[0<prms<=nn && t[[prms]]==0, t[[prms]]=k; cnt++]]; Join[{1}, t] (* T. D. Noe, May 19 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 26 2003
EXTENSIONS
More terms from David Wasserman, Aug 16 2005
STATUS
approved