A088634 Index of the first occurrence of n in A066888.

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

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

Cf. A066888, A000217, A000040, A190661.

Sequence in context: A378931 A154343 A049969 * A118791 A234840 A234743

Adjacent sequences: A088631 A088632 A088633 * A088635 A088636 A088637

Keyword

nonn

Author

Amarnath Murthy, Oct 26 2003

Extensions

More terms from David Wasserman, Aug 16 2005

Status

approved