|
%I #18 Aug 03 2014 14:01:20
%S 1,3,2,9,17,28,30,36,41,54,74,51,65,92,100,112,118,132,108,154,158,
%T 161,172,175,210,197,215,255,248,239,236,316,297,291,340,321,330,345,
%U 334,400,406,402,423,394,445,452,509,493,507,481,526,546,561,584,565,598
%N Index of the first occurrence of n in A066888.
%C For all 0 < n < 1000, a(n) < A104272(n). - John W. Nicholson, May 22 2011
%H T. D. Noe, <a href="/A088634/b088634.txt">Table of n, a(n) for n = 0..10000</a>
%t 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 *)
%Y Cf. A066888, A000217, A000040, A190661.
%K nonn
%O 0,2
%A _Amarnath Murthy_, Oct 26 2003
%E More terms from _David Wasserman_, Aug 16 2005
|
