A109564 a(n) = If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 10, Prime[n]].

1669, 2477, 2971, 3137, 3271, 4297, 4831, 5119, 5351, 5749, 6491, 6917, 7253, 7759, 7963, 8389, 8893, 10799, 11743, 12163, 17257

Offset

0,1

Links

Table of n, a(n) for n=0..20.

Mathematica

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

Crossrefs

Cf. A001359.

Sequence in context: A020392 A216590 A098974 * A188008 A145755 A252300

Adjacent sequences: A109561 A109562 A109563 * A109565 A109566 A109567

Keyword

nonn

Author

Roger L. Bagula, Jun 27 2005

Status

approved