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

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

Author

Roger L. Bagula, Jun 27 2005

Keywords

• nonn
• less

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