|
%I #4 Jul 07 2020 11:01:52
%S 6314447,7855163,9715103,10133467,10851497,12820427,13442537,14064317,
%T 14172007,15945437,18715547,20208163,21488263,22916767,23924827,
%U 24079357,25660883,27099283,27245627,27613093,29162977,31215643
%N Balanced primes separated from the next lower and next higher prime neighbors by 54.
%t lst={};Do[p=Prime[n];If[p-Prime[n-1]==Prime[n+1]-p==6*9,AppendTo[lst,p]],{n,9!,10!}];lst
%t Select[Partition[Prime[Range[2*10^6]],3,1],Differences[#]=={54,54}&][[All,2]] (* _Harvey P. Dale_, Jul 07 2020 *)
%Y Cf. A006562, A053070, A053072, A053073, A053074, A053075, A053076, A053077, A053078
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 20 2010
|
