This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A124620 #13 Mar 23 2020 04:07:47
%S A124620 459,765,969,1003,1207,1377,1581,1785,2295,2601,2703,3213,3723,3995,
%T A124620 4131,4403,4641,4947,5933,5967,6409,6477,6579,6613,6749,6987,7701,
%U A124620 8075,8517,9435,9741,9775,9877,9945,10217,10455,10897,10965,11305,11645
%N A124620 Odd interprimes divisible by 17.
%H A124620 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 A124620 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 A124620 Select[Range[17,12000,34],!PrimeQ[#]&&#-NextPrime[#,-1]==NextPrime[#]-#&] (* _Harvey P. Dale_, Nov 18 2012 *)
%Y A124620 Cf. A072569, A072572, A072573, A126228, A126229, A126230, A124619, A126231, A124622, A126233.
%K A124620 nonn
%O A124620 1,1
%A A124620 _Artur Jasinski_, Dec 21 2006
%E A124620 Extended by _Ray Chandler_, Jan 09 2007