The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A109556 a(n) = If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 2, Prime[n]]. 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 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 30 19:11 EDT 2023. Contains 365793 sequences. (Running on oeis4.)