A124620 Odd interprimes divisible by 17.

459, 765, 969, 1003, 1207, 1377, 1581, 1785, 2295, 2601, 2703, 3213, 3723, 3995, 4131, 4403, 4641, 4947, 5933, 5967, 6409, 6477, 6579, 6613, 6749, 6987, 7701, 8075, 8517, 9435, 9741, 9775, 9877, 9945, 10217, 10455, 10897, 10965, 11305, 11645

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, A124619, A126231, A124622, A126233.

Programs

Mathematica

Do[If[OddQ[(Prime[n + 1] + Prime[n])/2] && Mod[(Prime[n + 1] + Prime[n])/2, 17] == 0, Print[(Prime[n + 1] + Prime[n])/2]], {n, 1, 3000}] (*Artur Jasinski*)
Select[Range[17,12000,34],!PrimeQ[#]&&#-NextPrime[#,-1]==NextPrime[#]-#&] (* Harvey P. Dale, Nov 18 2012 *)

Extensions

Extended by Ray Chandler, Jan 09 2007