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 A164132 #11 Dec 09 2024 01:57:06 %S A164132 3,19,59,89,109,149,151,317,331,359,389,401,439,571,599,829,941,953, %T A164132 1019,1153,1249,1279,1319,1373,1381,1451,1657,1669,1733,1741,1867, %U A164132 1871,1973,2131,2161,2179,2251,2459,2819,3119,3539,3659,3967,4001,4099,4231,4261 %N A164132 Primes which are an eighth of the sum of two consecutive primes. %C A164132 Primes of the form A001043(k)/8. %H A164132 Robert Israel, <a href="/A164132/b164132.txt">Table of n, a(n) for n = 1..10000</a> %e A164132 19 is there because it is prime and 19=(73+79)/8. %p A164132 p:= 2: R:= NULL: count:= 0: %p A164132 while count < 100 do %p A164132 q:= p; p:= nextprime(p); %p A164132 v:= (q+p)/8; %p A164132 if v::integer and isprime(v) then %p A164132 R:= R,v; count:= count+1; %p A164132 fi; %p A164132 od: %p A164132 R; # _Robert Israel_, Dec 08 2024 %t A164132 Select[Total[#]/8&/@Partition[Prime[Range[2500]],2,1],PrimeQ] (* _Harvey P. Dale_, Apr 22 2011 *) %Y A164132 Cf. A000040, A118134, A163487. %K A164132 nonn %O A164132 1,1 %A A164132 _Juri-Stepan Gerasimov_, Aug 11 2009 %E A164132 Extended by _R. J. Mathar_, Aug 27 2009