|
%I #13 Mar 18 2020 03:00:29
%S 399,741,855,969,1197,1425,1995,3021,3705,4085,4731,4807,4883,5415,
%T 5529,5833,7315,7695,7847,7923,8075,8341,9063,9177,9215,9823,10317,
%U 10431,10507,10545,11077,11115,11267,11305,11457,11685,12483,13167,13623
%N Odd interprimes divisible by 19.
%H Robert Israel, <a href="/A126231/b126231.txt">Table of n, a(n) for n = 1..10000</a>
%p select(t ->nextprime(t)+prevprime(t)=2*t, [seq(i,i=19..20000,38)]); # _Robert Israel_, Mar 17 2020
%t 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}]
%t Select[Mean/@Partition[Prime[Range[2000]],2,1],OddQ[#]&&Divisible[#,19]&] (* _Harvey P. Dale_, Jan 24 2014 *)
%Y Cf. A072569, A072572, A072573, A126228, A126229, A126230, A124619, A124620, A124622, A126233.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 21 2006
%E Extended by _Ray Chandler_, Jan 09 2007
|
