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

Author

Artur Jasinski, Dec 21 2006

Keywords

• nonn

Links

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

Crossrefs

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

Programs

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}]

Extensions

Extended by Ray Chandler, Jan 09 2007