OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
17 + 12 = 29 (a prime), 17 - 12 = 5 (a prime);
19 + 12 = 31 (a prime), 19 - 12 = 7 (a prime).
MAPLE
isA092216 := proc(n) RETURN(isprime(n) and isprime(n-12) ) ; end: isA046133 := proc(n) RETURN(isprime(n) and isprime(n+12) ) ; end: isA137796 := proc(n) RETURN(isA092216(n) and isA046133(n)) ; end: for i from 1 to 400 do if isA137796(ithprime(i)) then printf("%d, ", ithprime(i)) ; fi ; od: # R. J. Mathar, May 03 2008
MATHEMATICA
a=12; Select[Table[Prime[n], {n, 10^3}], PrimeQ[ #-a] && PrimeQ[ #+a] &]
PROG
(PARI) lista(nn) = forprime(p=2, nn, if (isprime(p-12) && isprime(p+12), print1(p, ", "))); \\ Michel Marcus, Oct 04 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 28 2008
EXTENSIONS
Corrected and extended by R. J. Mathar, May 03 2008
STATUS
approved