|
|
A178135
|
|
Balanced primes separated from the next lower and next higher prime neighbors by 54.
|
|
1
|
|
|
6314447, 7855163, 9715103, 10133467, 10851497, 12820427, 13442537, 14064317, 14172007, 15945437, 18715547, 20208163, 21488263, 22916767, 23924827, 24079357, 25660883, 27099283, 27245627, 27613093, 29162977, 31215643
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|