login
Odd interprimes divisible by 7.
8

%I #10 Mar 23 2020 04:08:10

%S 21,105,217,231,315,399,441,483,861,987,1113,1197,1281,1449,1491,1505,

%T 1575,1715,1785,1827,1869,1995,2121,2191,2205,2247,2303,2541,2667,

%U 2709,2751,2835,2933,3045,3073,3129,3213,3255,3353,3381,3423,3465,3675,3885

%N Odd interprimes divisible by 7.

%H Amiram Eldar, <a href="/A126229/b126229.txt">Table of n, a(n) for n = 1..10000</a>

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

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

%K nonn

%O 1,1

%A _Artur Jasinski_, Dec 21 2006

%E Extended by _Ray Chandler_, Jan 09 2007