OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 600], AllTrue[{7#+3, 3#+7}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 27 2018 *)
PROG
(Magma) [n: n in [0..1000] | IsPrime(7*n+3) and IsPrime(3*n+7)] // Vincenzo Librandi, Mar 26 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 10 2006
STATUS
approved