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

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

Offset

0,1

Links

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

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. A001359.

Sequence in context: A078883 A355901 A155990 * A167675 A277284 A090952

Adjacent sequences: A109553 A109554 A109555 * A109557 A109558 A109559

Keyword

nonn

Author

Roger L. Bagula, Jun 27 2005

Status

approved