|
%I #33 Sep 08 2022 08:45:07
%S 0,2,3,5,7,9,10,12,13,16,17,19,20,21,24,25,26,29,30,31,34,42,43,45,48,
%T 49,54,57,59,60,61,63,64,67,72,74,75,76,80,81,82,89,90,91,93,94,95,
%U 100,101,104,106,107,108,109,111,112,113,116,123,125,127,128,133,134,136
%N Numbers n such that 210*n + 11 is prime.
%C First sets of exactly n consecutive integers;
%C 0;
%C 2, 3;
%C 19..21;
%C 106..109;
%C 1270..1274;
%C 1178..1183;
%C 15304..15310;
%C 2562331..2562338;
%C 108571234..108571242;
%C 1594939699..1594939708.
%H Vincenzo Librandi, <a href="/A076355/b076355.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = (A140840(n) - 11)/210. - _Zak Seidov_, Jan 15 2014
%e n=2: 210*2 + 11 = 431 is prime.
%t Select[Range[0,150],PrimeQ[210#+11]&] (* _Harvey P. Dale_, Dec 09 2011 *)
%o (Magma) [n: n in [0..150]| IsPrime(210*n + 11)]; // _Vincenzo Librandi_, Oct 04 2012
%o (PARI) is(n)=isprime(210*n+11) \\ _Charles R Greathouse IV_, May 22 2017
%Y Cf. A140840.
%K easy,nonn
%O 1,2
%A _Zak Seidov_, Oct 08 2002
%E 0 inserted by _Ray Chandler_, Apr 30 2010
|
