|
%I #13 Mar 23 2020 04:07:47
%S 459,765,969,1003,1207,1377,1581,1785,2295,2601,2703,3213,3723,3995,
%T 4131,4403,4641,4947,5933,5967,6409,6477,6579,6613,6749,6987,7701,
%U 8075,8517,9435,9741,9775,9877,9945,10217,10455,10897,10965,11305,11645
%N Odd interprimes divisible by 17.
%H Amiram Eldar, <a href="/A124620/b124620.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%t 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*)
%t Select[Range[17,12000,34],!PrimeQ[#]&&#-NextPrime[#,-1]==NextPrime[#]-#&] (* _Harvey P. Dale_, Nov 18 2012 *)
%Y Cf. A072569, A072572, A072573, A126228, A126229, A126230, A124619, A126231, A124622, A126233.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 21 2006
%E Extended by _Ray Chandler_, Jan 09 2007
|
