login
A178136
Balanced primes separated from the next lower and next higher prime neighbors by 60.
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