login
Odd interprimes divisible by 13.
8

%I #14 Mar 23 2020 04:07:30

%S 39,195,351,741,897,1313,1443,1599,2379,2405,2535,2613,2691,2847,3055,

%T 3081,3627,3705,4641,4771,5031,5577,5655,5889,5967,6045,6201,6409,

%U 6825,6877,6903,7007,7033,7605,7943,8437,8541,8931,8957,9009,9035,9321,9607

%N Odd interprimes divisible by 13.

%H Amiram Eldar, <a href="/A124619/b124619.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)

%t Do[If[OddQ[(Prime[n + 1] + Prime[n])/2] && Mod[(Prime[n + 1] + Prime[n])/2, 13] == 0, Print[(Prime[n + 1] + Prime[n])/2]], {n, 1, 3000}] (*Artur Jasinski*)

%t Select[(Total/@Partition[Prime[Range[1200]],2,1])/2,OddQ[#]&&Mod[#,13] == 0&] (* _Harvey P. Dale_, May 23 2019 *)

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

%K nonn

%O 1,1

%A _Artur Jasinski_, Dec 21 2006

%E Extended by _Ray Chandler_, Jan 09 2007