|
%I #16 Nov 07 2018 03:55:27
%S 0,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,
%T 4,4,4,4,4,4,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,7,7,7,7,7,7,7,7,8,8,
%U 8,8,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,10,10,10,10
%N Greatest Ramanujan prime index less than x, eta(x).
%C a(n) is the greatest value k of A104272(k) less than x. The integer inverse function of A104272.
%C Starting at index m = a(A174602(n)) in A190874(m), the first instance of a count of n - 1 consecutive 1's is seen.
%H J. Sondow, J. W. Nicholson, and T. D. Noe, <a href="http://arxiv.org/abs/1105.2249"> Ramanujan Primes: Bounds, Runs, Twins, and Gaps</a>, arXiv:1105.2249 [math.NT], 2011; J. Integer Seq. 14 (2011) Article 11.6.2.
%e a(17) = eta(17) = 3. Or, R_3 = 17.
%t nn = 100; R = Table[0, {nn}]; s = 0;
%t Do[If[PrimeQ[k], s++]; If[PrimeQ[k/2], s--]; If[s < nn, R[[s + 1]] = k], {k, Prime[3 nn]}];
%t A104272 = R + 1;
%t Table[Boole[MemberQ[A104272, k]], {k, 1, 100}] // Accumulate (* _Jean-François Alcover_, Nov 07 2018, using _T. D. Noe_'s code for A104272 *)
%Y Cf. A104272, A191225, A191226, A191227.
%K nonn
%O 1,11
%A _John W. Nicholson_, May 28 2011
|
