cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A191226 First occurrence of number n of Ramanujan primes in A191225.

Original entry on oeis.org

1, 2, 12, 22, 29, 36, 65, 69, 117, 118, 73, 100, 108, 154, 161, 200, 254, 172, 274, 239, 340, 321, 334, 330, 345, 471, 378, 481, 357, 526, 522, 515, 610, 635, 612, 655, 648, 792, 809, 731, 797, 594, 806, 851, 988, 886, 963, 933, 1005, 1111, 927, 1124, 970
Offset: 0

Views

Author

John W. Nicholson, May 28 2011

Keywords

Crossrefs

A191227 Last known occurrence of number n of Ramanujan primes in A191225.

Original entry on oeis.org

79, 194, 153, 284, 420, 333, 454, 592, 504, 412, 652, 512, 486, 617, 613, 660, 1130, 753, 1002, 849, 1060, 957, 1034, 1037, 1198, 961, 969, 1056, 1368, 1400, 1264, 1314, 1301, 1683, 1510, 1571, 1532, 1625, 1771, 1810, 1745, 1907, 1961, 1877, 1851, 2104, 2097
Offset: 0

Views

Author

John W. Nicholson, May 28 2011

Keywords

Crossrefs

A191228 Greatest Ramanujan prime index less than x, eta(x).

Original entry on oeis.org

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, 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, 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
Offset: 1

Views

Author

John W. Nicholson, May 28 2011

Keywords

Comments

a(n) is the greatest value k of A104272(k) less than x. The integer inverse function of A104272.
Starting at index m = a(A174602(n)) in A190874(m), the first instance of a count of n - 1 consecutive 1's is seen.

Examples

			a(17) = eta(17) = 3. Or, R_3 = 17.
		

Crossrefs

Programs

  • Mathematica
    nn = 100; R = Table[0, {nn}]; s = 0;
    Do[If[PrimeQ[k], s++]; If[PrimeQ[k/2], s--]; If[s < nn, R[[s + 1]] = k], {k, Prime[3 nn]}];
    A104272 = R + 1;
    Table[Boole[MemberQ[A104272, k]], {k, 1, 100}] // Accumulate (* Jean-François Alcover, Nov 07 2018, using T. D. Noe's code for A104272 *)
Showing 1-3 of 3 results.