0,1

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

Cf. A001359.

Sequence in context: A142784 A142847 A142558 this_sequence A023305 A109182 A085502

Adjacent sequences: A109559 A109560 A109561 this_sequence A109563 A109564 A109565

nonn

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 27 2005