cp's OEIS Frontend

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.

A053073 Balanced primes separated from the next lower and next higher prime neighbors by 18.

This page as a plain text file.
%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