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

37, 43, 67, 151, 157, 167, 173, 233, 251, 257, 263, 271, 331, 353, 367, 373, 383, 433, 443, 503, 541, 557, 563, 571, 587, 593, 601, 607, 647, 653, 683, 701, 719, 743, 761, 911, 929, 983, 1109, 1163, 1193, 1373, 1439, 1523, 1559, 1571, 1733, 1823, 1979

Offset

0,1

Links

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

Mathematica

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

Crossrefs

Cf. A001359.

Sequence in context: A139773 A290006 A214797 * A176927 A039950 A186281

Adjacent sequences: A109554 A109555 A109556 * A109558 A109559 A109560

Keyword

nonn

Author

Roger L. Bagula, Jun 27 2005

Status

approved