[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
login
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
OFFSET
1,1
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 *)
KEYWORD
nonn
AUTHOR
STATUS
approved