OFFSET
1,1
COMMENTS
Subsequence of A023212.
MATHEMATICA
Join[{3}, Select[Range[7, 20000, 6], PrimeQ[#] && PrimeQ[4# + 1] && PrimeQ[6# + 1] &]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 21 2012
STATUS
approved