OFFSET
1,1
COMMENTS
Contains A188130 as a subsequence.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1, 2000, 4], PrimeQ[#] && PrimeQ[6# + 1] &] (* Amiram Eldar, Nov 13 2019 *)
PROG
(PARI) forprime(p=1, 1e5, p%4==1 & isprime(p*6+1) & print1(p", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Mar 21 2011
STATUS
approved