OFFSET
1,1
MATHEMATICA
With[{r1=Range[2, 12, 2], r2=Range[3, 13, 2]}, Select[Range[16500000], And@@PrimeQ[# r1+r2]&]] (* Harvey P. Dale, Jan 31 2011 *)
PROG
(Magma)[n: n in [0..10000000]|IsPrime(2*n+3) and IsPrime(4*n+5) and IsPrime(6*n+7) and IsPrime(8*n+9) and IsPrime(10*n+11)and IsPrime(12*n+13)] // Vincenzo Librandi, Dec 16 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 16 2005
STATUS
approved