A109556 - OEIS

A109556

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

3, 5, 11, 17, 79, 97, 103, 109, 127, 163, 193, 223, 229, 277, 307, 313, 349, 379, 397, 439, 457, 463, 487, 499, 613, 643, 677, 727, 733, 751, 941, 947, 971, 977, 991, 1013, 1033, 1063, 1097, 1103, 1117, 1123, 1181, 1187, 1217, 1223, 1231, 1283, 1291, 1321

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

MATHEMATICA

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

CROSSREFS

Cf. A000040, A000720, A001359.

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

Sequence in context: A078883 A355901 A155990 * A167675 A277284 A090952

Adjacent sequences: A109553 A109554 A109555 * A109557 A109558 A109559