OFFSET
1,1
COMMENTS
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..9180
EXAMPLE
11 is in the list because: 2*11 + 1 = 23 (prime), hence 11 is Sophie Germain prime; also, 11 - 6 = 5 and 11 + 6 = 17 are both prime.
23 is in the list because: 2*23 + 1 = 47 (prime), hence 23 is Sophie Germain prime; also, 23 - 6 = 17 and 23 + 6 = 29 are both prime.
MATHEMATICA
Select[Prime[Range[20000]], PrimeQ[2 # + 1] && PrimeQ[# + 6] && PrimeQ[# - 6] &]
PROG
(PARI) forprime(p=1, 10000, if(isprime(2*p+1) && isprime(p+6) && isprime(p-6), print1(p, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Nov 29 2016
STATUS
approved