|
%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
|
