[go: up one dir, main page]

login
A126229
Odd interprimes divisible by 7.
8
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
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}]
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 21 2006
EXTENSIONS
Extended by Ray Chandler, Jan 09 2007
STATUS
approved