OFFSET
1,2
COMMENTS
Values are 1 mod 7.
In each case, the 7 primes are necessarily consecutive. See the comment in A100418. - Peter Munn, Sep 06 2023
MAPLE
a:= proc(n) option remember;
local m;
if n=1 then 1
else for m from 30*(a(n-1)+7) by 210
while not (isprime (m+1) and isprime (m+7) and
isprime (m+11) and isprime (m+13) and
isprime (m+17) and isprime (m+23) and
isprime (m+29))
do od; m/30
fi
end:
seq (a(n), n=1..10);
MATHEMATICA
Select[Range[5000000], And@@PrimeQ/@(30(#)+{1, 7, 11, 13, 17, 23, 29})&] (* Harvey P. Dale, Feb 23 2011 *)
PROG
(Magma) [ n: n in [0..5000000] | forall{ q: q in [1, 7, 11, 13, 17, 23, 29] | IsPrime(30*n+q) } ]; // Klaus Brockhaus, Feb 23 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