OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..186
MATHEMATICA
Select[Prime[Range[1000000]], And@@PrimeQ/@{2 # + 1, 3 # + 2, 4 # + 3, 5 # + 4, 6 # + 7} &] (* Vincenzo Librandi, Sep 24 2014 *)
Select[Prime[Range[10^6]], AllTrue[{2#+1, 3#+2, 4#+3, 5#+4, 6#+7}, PrimeQ]&] (* Harvey P. Dale, Jun 19 2024 *)
PROG
(Magma) [n: n in [1..15000000] | IsPrime(n) and IsPrime(2*n+1) and IsPrime(3*n+2) and IsPrime(4*n+3) and IsPrime(5*n+4) and IsPrime(6*n+7)];
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Mar 23 2010
STATUS
approved