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,1

Links

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

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 *)

Crossrefs

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

Sequence in context: A352360 A176911 A202158 * A158317 A227008 A253597

Adjacent sequences: A126228 A126229 A126230 * A126232 A126233 A126234

Keyword

nonn

Author

Artur Jasinski, Dec 21 2006

Extensions

Extended by Ray Chandler, Jan 09 2007

Status

approved