A178136 Balanced primes separated from the next lower and next higher prime neighbors by 60.
4911311, 5309599, 9113323, 11355857, 11397163, 13940117, 14306263, 14313587, 14585149, 17172581, 21126169, 24419341, 24581863, 24861691, 24922351, 25308859, 26241811, 26722583, 27408253, 28740979, 29675197, 30045871
Offset: 1
Keywords
Crossrefs
Programs
-
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