OFFSET
1,1
COMMENTS
EXAMPLE
5 is a member since 5+6=11 and 5*6+1=31 are both primes.
MATHEMATICA
Select[Prime[Range[1850]], PrimeQ[2*# + 1] && PrimeQ[#^2 + # + 1] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jayanta Basu, Apr 17 2013
STATUS
approved