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 A053073 #23 Dec 07 2021 10:58:49 %S A053073 20201,21911,25391,29269,30449,34631,50441,54851,56149,58129,63559, %T A053073 66431,74471,74489,76561,76579,77951,78259,81439,107581,108439,110459, %U A053073 112181,121421,122099,122579,131041,132911,132929,135301,137321,137849 %N A053073 Balanced primes separated from the next lower and next higher prime neighbors by 18. %H A053073 Zak Seidov, <a href="/A053073/b053073.txt">Table of n, a (n) for n = 1..1000</a> %F A053073 a(n) = A052189(n) + 18. - _Sean A. Irvine_, Dec 05 2021 %e A053073 25391 is separated from both the next lower prime and the next higher prime by 18. %t A053073 lst={};Do[p=Prime[n];If[p-Prime[n-1]==Prime[n+1]-p==6*3,AppendTo[lst,p]],{n,2,3*7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, May 20 2010 *) %t A053073 Transpose[Select[Partition[Prime[Range[20000]],3,1],Differences[#] == {18,18}&]][[2]] (* _Harvey P. Dale_, Oct 21 2011 *) %Y A053073 Cf. A052189. %K A053073 easy,nonn %O A053073 1,1 %A A053073 _Harvey P. Dale_, Feb 25 2000