A100420 Numbers n such that 30*n+{1,7,11,17,19,23,29} are all prime.
22621, 103205, 149125, 237794, 288467, 321451, 364921, 373370, 404002, 851099, 985933, 1106235, 1594044, 1696874, 1780265, 1824421, 1851756, 2249881, 3112939, 3257538, 3397608, 3601651, 3747356, 4347340, 4710990, 4886284
Offset: 1
Programs
-
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
-
Mathematica
Select[Range[5000000],And@@PrimeQ[30 #+{1,7,11,17,19,23,29}]&] (* Harvey P. Dale, Mar 06 2011 *)
Extensions
Edited by Don Reble, Nov 17 2005
Comments