%I #15 Sep 06 2023 11:49:28
%S 62,188,9491,31982,38226,38520,89459,168237,175125,368248,471078,
%T 634892,704416,803102,994748,1436315,1488857,1605484,1842553,1945824,
%U 2282958,2465266,2620715,2627029,2705037,4282305,5569899,5914824
%N Numbers n such that 30*n+{1,7,11,13,17,19,29} are all prime.
%C Values are 6 mod 7.
%C In each case, the 7 primes are necessarily consecutive. See the comment in A100418. - _Peter Munn_, Sep 06 2023
%t Select[Range[6*10^6],AllTrue[30#+{1,7,11,13,17,19,29},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 21 2021 *)
%o (Magma) [ n: n in [0..6000000] | forall{ q: q in [1, 7, 11, 13, 17, 19, 29] | IsPrime(30*n+q) } ]; // _Klaus Brockhaus_, Feb 24 2011
%Y Cf. A005776, A007775, A076205, A100418-A100422.
%K easy,nonn
%O 1,1
%A Ferenc Adorjan (fadorjan(AT)freemail.hu), Nov 19 2004
%E Edited by _Don Reble_, Nov 17 2005
|