%I #16 Sep 06 2023 11:49:06
%S 2,79,391701,505017,740413,787187,933025,1169863,1333719,1406792,
%T 2212261,2719950,2962738,3125992,3284955,3384586,3727271,3821295,
%U 3861881,4320864,4439878,4764356,5014865,5480190,5879274,6124442
%N Numbers n such that 30*n+{1,7,11,13,19,23,29} are all prime.
%C Values are 2 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[7*10^6],AllTrue[30#+{1,7,11,13,19,23,29},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, May 16 2016 *)
%o (Magma) [ n: n in [2..70000000 by 7] | forall{ q: q in [1, 7, 11, 13, 19, 23, 29] | IsPrime(30*n+q) } ]; // _Klaus Brockhaus_, Feb 24 2011
%Y Cf. A005776, A007775, A076205, A100418-A100420, A100422, A100423.
%K easy,nonn
%O 1,1
%A Ferenc Adorjan (fadorjan(AT)freemail.hu), Nov 19 2004
%E Edited by _Don Reble_, Nov 17 2005
|