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 A126555 #12 Sep 19 2024 04:18:06
%S A126555 29,1439,4211,7703,12907,14957,16703,20947,29221,31189,33053,36749,
%T A126555 44531,51437,90247,115547,124783,127163,133337,144511,146449,151339,
%U A126555 157133,166219,169241,180233,181031,185123,197383,223367,225287,240347
%N A126555 Primes in A126554.
%C A126555 Primes that are the arithmetic mean of two consecutive balanced primes (of order one); primes of the form (A006562(k)+A006562(k+1))/2.
%C A126555 Might be called prime interprimes of order two.
%H A126555 Amiram Eldar, <a href="/A126555/b126555.txt">Table of n, a(n) for n = 1..10000</a>
%t A126555 b = {}; a = {}; Do[If[PrimeQ[((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2], AppendTo[a, ((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2]], {n, 1,10000}];Do[If[PrimeQ[(a[[k + 1]] + a[[k]])/2], AppendTo[b, (a[[k + 1]] + a[[k]])/2]], {k, 1, Length[a] - 1}]; b
%o A126555 (PARI) {m=250000;a=0;p=2;q=3;r=5;while(r<=m,if((p+r)/2==q,if(a>0,if(isprime(b=(a+q)/2),print1(b,",")));a=q);p=q;q=r;r=nextprime(r+1))} \\ _Klaus Brockhaus_, Jan 05 2007
%Y A126555 Cf. A126554, A006562.
%K A126555 nonn
%O A126555 1,1
%A A126555 _Artur Jasinski_, Dec 27 2006
%E A126555 Edited and extended by _Klaus Brockhaus_, Jan 05 2007