A124619 Odd interprimes divisible by 13.

39, 195, 351, 741, 897, 1313, 1443, 1599, 2379, 2405, 2535, 2613, 2691, 2847, 3055, 3081, 3627, 3705, 4641, 4771, 5031, 5577, 5655, 5889, 5967, 6045, 6201, 6409, 6825, 6877, 6903, 7007, 7033, 7605, 7943, 8437, 8541, 8931, 8957, 9009, 9035, 9321, 9607

Offset: 1

Author

Artur Jasinski, Dec 21 2006

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)

Crossrefs

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

Programs

Mathematica

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*)
Select[(Total/@Partition[Prime[Range[1200]],2,1])/2,OddQ[#]&&Mod[#,13] == 0&] (* Harvey P. Dale, May 23 2019 *)

Extensions

Extended by Ray Chandler, Jan 09 2007