A126231 Odd interprimes divisible by 19.

399, 741, 855, 969, 1197, 1425, 1995, 3021, 3705, 4085, 4731, 4807, 4883, 5415, 5529, 5833, 7315, 7695, 7847, 7923, 8075, 8341, 9063, 9177, 9215, 9823, 10317, 10431, 10507, 10545, 11077, 11115, 11267, 11305, 11457, 11685, 12483, 13167, 13623

Offset: 1

Author

Artur Jasinski, Dec 21 2006

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

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

Programs

Maple

select(t ->nextprime(t)+prevprime(t)=2*t, [seq(i,i=19..20000,38)]); # Robert Israel, Mar 17 2020

Mathematica

Do[If[OddQ[(Prime[n + 1] + Prime[n])/2] && Mod[(Prime[n + 1] + Prime[n])/2, 19] == 0, Print[(Prime[n + 1] + Prime[n])/2]], {n, 1, 3000}]
Select[Mean/@Partition[Prime[Range[2000]],2,1],OddQ[#]&&Divisible[#,19]&] (* Harvey P. Dale, Jan 24 2014 *)

Extensions

Extended by Ray Chandler, Jan 09 2007