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.

Previous Showing 11-14 of 14 results.

A109565 prime(k) for those k where floor((2*(prime(k+1)-prime(k))*PrimePi(k) mod (8*k))/k) = m with m = 11.

Original entry on oeis.org

5591, 8467, 9551, 9973, 12853, 14107, 15823, 19333, 20809, 22573, 25261, 33247, 34981, 38461, 38501, 39251, 45439, 52391, 58789, 76163, 81463, 91033, 93001, 93637, 101221, 103723, 105769, 106543, 113233, 113843, 116593, 118297, 124021, 128053, 128767, 137029, 156371
Offset: 1

Views

Author

Roger L. Bagula, Jun 27 2005

Keywords

Crossrefs

Cf. A000040, A000720, A001359.
Cf. A109556-A109569 for m = 2..15.

Programs

  • Mathematica
    a = Flatten[Table[If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 11, Prime[n], {}], {n, 1, 4000}]]

Extensions

Name edited, offset corrected and more terms added by Amiram Eldar, Jun 02 2025

A109566 prime(k) for those k where floor((2*(prime(k+1)-prime(k))*PrimePi(k) mod (8*k))/k) = m with m = 12.

Original entry on oeis.org

16141, 36389, 37907, 69263, 73189, 86629, 95651, 103237, 112691, 126859, 130873, 132763, 152311, 153763, 159233, 166487, 167809, 171947, 200513, 202129, 212297, 213659, 223151, 223849, 227893, 236813, 250199, 255259, 261169, 277099, 277429, 283211, 293543, 302053
Offset: 1

Views

Author

Roger L. Bagula, Jun 27 2005

Keywords

Crossrefs

Cf. A000040, A000720, A001359.
Cf. A109556-A109569 for m = 2..15.

Programs

  • Mathematica
    a = Flatten[Table[If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 12, Prime[n], {}], {n, 1, 10000}]]
Table[If[Floor[2*Mod[(Prime[n+1]-Prime[n])*PrimePi[n]/n,8]]==12,Prime[n],Nothing],{n,10000}] (* Harvey P. Dale, Dec 16 2024 *)

Extensions

Name edited, offset corrected and more terms added by Amiram Eldar, Jun 02 2025

A109567 prime(k) for those k where floor((2*(prime(k+1)-prime(k))*PrimePi(k) mod (8*k))/k) = m with m = 13.

Original entry on oeis.org

15683, 28229, 45893, 48679, 59281, 60539, 74959, 86869, 100853, 106033, 107509, 114493, 117443, 118973, 121789, 153001, 153191, 160253, 178697, 181303, 189067, 190921, 191353, 195599, 203057, 204173, 214993, 220063, 221101, 227303, 231719, 233777, 237409, 243709
Offset: 1

Views

Author

Roger L. Bagula, Jun 27 2005

Keywords

Crossrefs

Cf. A000040, A000720, A001359.
Cf. A109556-A109569 for m = 2..15.

Programs

  • Mathematica
    a = Flatten[Table[If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 13, Prime[n], {}], {n, 1, 10000}]]

Extensions

Name edited, offset corrected and more terms added by Amiram Eldar, Jun 02 2025

A109568 prime(k) for those k where floor((2*(prime(k+1)-prime(k))*PrimePi(k) mod (8*k))/k) = m with m = 14.

Original entry on oeis.org

1327, 31907, 35677, 40289, 40639, 43801, 79699, 82073, 85933, 102701, 110359, 124367, 142993, 149629, 156157, 190409, 221327, 259033, 273367, 282493, 283303, 285871, 288583, 294563, 296843, 326369, 341357, 372539, 377393, 379207, 390581, 399283, 425713, 430193
Offset: 1

Views

Author

Roger L. Bagula, Jun 27 2005

Keywords

Crossrefs

Cf. A000040, A000720, A001359.
Cf. A109556-A109569 for m = 2..15.

Programs

  • Mathematica
    a = Flatten[Table[If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 14, Prime[n], {}], {n, 1, 10000}]]

Extensions

Name edited, offset corrected and more terms added by Amiram Eldar, Jun 02 2025
Previous Showing 11-14 of 14 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.