Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Search: a053077 -id:a053077
     Sort: relevance | references | number | modified | created      Format: long | short | data
Balanced primes separated from the next lower and next higher prime neighbors by 54.
+10
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
Balanced primes separated from the next lower and next higher prime neighbors by 60.
+10
1
4911311, 5309599, 9113323, 11355857, 11397163, 13940117, 14306263, 14313587, 14585149, 17172581, 21126169, 24419341, 24581863, 24861691, 24922351, 25308859, 26241811, 26722583, 27408253, 28740979, 29675197, 30045871
OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[p-Prime[n-1]==Prime[n+1]-p==6*10, AppendTo[lst, p]], {n, 8!, 2*10!}]; lst
KEYWORD
nonn
AUTHOR
STATUS
approved

Search completed in 0.009 seconds