OFFSET
1,1
COMMENTS
Values are 4 mod 7.
In each case, the 7 primes are necessarily consecutive. See the comment in A100418. - Peter Munn, Sep 06 2023
MATHEMATICA
Select[Range[5000000], And@@PrimeQ[30 #+{1, 7, 11, 17, 19, 23, 29}]&] (* Harvey P. Dale, Mar 06 2011 *)
PROG
(Magma) [ n: n in [4..70000000 by 7] | forall{ q: q in [1, 7, 11, 17, 19, 23, 29] | IsPrime(30*n+q) } ]; // Klaus Brockhaus, Feb 24 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ferenc Adorjan (fadorjan(AT)freemail.hu), Nov 19 2004
EXTENSIONS
Edited by Don Reble, Nov 17 2005
STATUS
approved