OFFSET
1,1
COMMENTS
In other words, balanced primes separated from the next lower and next higher prime neighbors by 12.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A052188(n) + 12. - Michel Marcus, Jan 09 2015
EXAMPLE
1511 is separated from both the next lower prime and the next higher prime by 12.
MAPLE
for i from 1 by 1 to 5000 do if ithprime(i+1) = ithprime(i) +12 and ithprime(i+2) = ithprime(i) + 24 then print(ithprime(i+1)); # Zerinvary Lajos, May 04 2007
MATHEMATICA
lst={}; Do[p=Prime[n]; If[p-Prime[n-1]==Prime[n+1]-p==6*2, AppendTo[lst, p]], {n, 2, 2*7!}]; lst (* Vladimir Joseph Stephan Orlovsky, May 20 2010 *)
Transpose[Select[Partition[Prime[Range[4000]], 3, 1], Differences[#] == {12, 12}&]][[2]] (* Harvey P. Dale, Apr 07 2013 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Harvey P. Dale, Feb 25 2000
EXTENSIONS
Corrected by Jud McCranie, Jan 04 2001
Edited by N. J. A. Sloane, Jul 03 2008 at the suggestion of R. J. Mathar
STATUS
approved