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 A242383 #19 Oct 25 2020 17:18:39
%S A242383 5,11,29,41,53,71,239,337,419,461,503,547,599,647,863,1051,1187,1481,
%T A242383 1721,1801,2549,2647,2969,3539,4421,6317,7129,8009,10301,12653,13567,
%U A242383 14033,17291,18353,19181,19457,20021,22943,23561,24179,27059,29063,29753,31151,33301,35153
%N A242383 Lesser of consecutive primes whose average is an oblong number.
%H A242383 Amiram Eldar, <a href="/A242383/b242383.txt">Table of n, a(n) for n = 1..10000</a>
%e A242383 53 is in the sequence because it is prime, nextprime(53) = 59 and (53+59)/2 = 56 = 8*7, an oblong number.
%t A242383 f[n_] := NextPrime[n*(n + 1), -1] ; f /@ Select[Range[200], (ob = #*(# + 1)) == (NextPrime[ob, -1] + NextPrime[ob])/2 &] (* _Amiram Eldar_, May 06 2020 *)
%t A242383 Select[Partition[Prime[Range[4000]],2,1],OddQ[Sqrt[1+4*Mean[#]]]&][[All,1]] (* _Harvey P. Dale_, Oct 25 2020 *)
%o A242383 (PARI){for(i=3,10^5,if(isprime(i),k=(i+nextprime(i+1))/4;if(issquare(8*k+1),print1(i,", "))))}
%Y A242383 Cf. A002378, A154634, A263676.
%K A242383 nonn
%O A242383 1,1
%A A242383 _Antonio Roldán_, May 12 2014