A126229 Odd interprimes divisible by 7.

21, 105, 217, 231, 315, 399, 441, 483, 861, 987, 1113, 1197, 1281, 1449, 1491, 1505, 1575, 1715, 1785, 1827, 1869, 1995, 2121, 2191, 2205, 2247, 2303, 2541, 2667, 2709, 2751, 2835, 2933, 3045, 3073, 3129, 3213, 3255, 3353, 3381, 3423, 3465, 3675, 3885

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

Do[If[OddQ[(Prime[n + 1] + Prime[n])/2] && Mod[(Prime[n + 1] + Prime[n])/2, 7] == 0, Print[(Prime[n + 1] + Prime[n])/2]], {n, 1, 3000}]

Crossrefs

Cf. A072569, A072572, A072573, A126228, A126230, A124619, A124620, A126231, A124622, A126233.

Sequence in context: A306259 A069499 A068142 * A060537 A116689 A235876

Adjacent sequences: A126226 A126227 A126228 * A126230 A126231 A126232

Keyword

nonn

Author

Artur Jasinski, Dec 21 2006

Extensions

Extended by Ray Chandler, Jan 09 2007

Status

approved