OFFSET
1,1
MATHEMATICA
sp1Q[n_]:=IntegerQ[(n-1)/6]&&PrimeQ[6n+1]; Select[Prime[Range[500]], sp1Q] (* Harvey P. Dale, Apr 08 2018 *)
PROG
(Magma) [ p: n in [0..600] | IsPrime(6*p+1) and IsPrime(p) where p is 6*n+1 ];
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 22 2010
STATUS
approved