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

Links

Table of n, a(n) for n=1..34.

Mathematica

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

Crossrefs

Cf. A000040, A000720, A001359.

Cf. A109556-A109569 for m = 2..15.

Sequence in context: A122390 A075038 A082889 * A235234 A250873 A205091

Adjacent sequences: A109565 A109566 A109567 * A109569 A109570 A109571

Keyword

nonn,less

Author

Roger L. Bagula, Jun 27 2005

Extensions

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

Status

approved