A178135 Balanced primes separated from the next lower and next higher prime neighbors by 54.

6314447, 7855163, 9715103, 10133467, 10851497, 12820427, 13442537, 14064317, 14172007, 15945437, 18715547, 20208163, 21488263, 22916767, 23924827, 24079357, 25660883, 27099283, 27245627, 27613093, 29162977, 31215643

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, May 20 2010

Keywords

• nonn

Crossrefs

Cf. A006562, A053070, A053072, A053073, A053074, A053075, A053076, A053077, A053078

Programs

Mathematica

lst={};Do[p=Prime[n];If[p-Prime[n-1]==Prime[n+1]-p==6*9,AppendTo[lst,p]],{n,9!,10!}];lst
Select[Partition[Prime[Range[2*10^6]],3,1],Differences[#]=={54,54}&][[All,2]] (* Harvey P. Dale, Jul 07 2020 *)