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

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

Links

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

Mathematica

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

Crossrefs

Cf. A000040, A000720, A001359.

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

Sequence in context: A252154 A360218 A065698 * A126784 A071813 A074242

Adjacent sequences: A109562 A109563 A109564 * A109566 A109567 A109568

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