OFFSET
1,2
COMMENTS
Except for 3, no terms == 3 or 5 (mod 7). - Robert Israel, Jul 26 2019
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(t -> isprime(t+4) and isprime(4*t+1), [seq(i, i=1..1000, 2)]); # Robert Israel, Jul 26 2019
MATHEMATICA
Select[Range[600], AllTrue[{4+#, 4#+1}, PrimeQ]&] (* Harvey P. Dale, Nov 14 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 10 2006
STATUS
approved