|
|
A088634
|
|
Index of the first occurrence of n in A066888.
|
|
3
|
|
|
1, 3, 2, 9, 17, 28, 30, 36, 41, 54, 74, 51, 65, 92, 100, 112, 118, 132, 108, 154, 158, 161, 172, 175, 210, 197, 215, 255, 248, 239, 236, 316, 297, 291, 340, 321, 330, 345, 334, 400, 406, 402, 423, 394, 445, 452, 509, 493, 507, 481, 526, 546, 561, 584, 565, 598
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
For all 0 < n < 1000, a(n) < A104272(n). - John W. Nicholson, May 22 2011
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|