A102703 - OEIS

%I #28 Sep 08 2022 08:45:16

%S 1,4,5,13,14,16,19,20,23,26,29,32,34,40,47,49,50,53,61,62,65,68,74,76,

%T 85,86,89,91,100,103,104,107,112,113,116,127,128,130,133,134,137,139,

%U 146,151,152,166,170,172,175,181,188,196,203,205,208

%N Numbers k such that 100*k+99 is prime.

%C Former name of this sequence: Numbers n such that n99 is prime.

%H Daniel Starodubtsev, <a href="/A102703/b102703.txt">Table of n, a(n) for n = 1..10000</a>

%H Chris Caldwell, <a href="http://www.utm.edu/research/primes/lists/small/1000.txt">The First 1,000 Primes</a>.

%F a(n) ~ 40n log n. - _Charles R Greathouse IV_, Mar 18 2011

%e 199 is prime, so 1 is in the sequence.

%e 299 = 13*23 (composite), so 2 is not in the sequence.

%e 4099 is prime, so 40 is in the sequence.

%t Do[If[PrimeQ[100*n + 99], Print[n]], {n, 1, 200}] (* _Stefan Steinerberger_, Feb 22 2006 *)

%t Select[Range[210],PrimeQ[100#+99]&]  (* _Harvey P. Dale_, Mar 18 2011 *)

%o (PARI) select(primes(10^5),n->n%100==99)\100 \\ _Charles R Greathouse IV_, Mar 18 2011

%o (Magma) [n: n in [0..300] | IsPrime(100*n + 99)]; // _Vincenzo Librandi_, Feb 14 2015

%K nonn,base,easy

%O 1,2

%A _Parthasarathy Nambi_, Feb 04 2005

%E More terms from _Stefan Steinerberger_, Feb 22 2006

%E Corrected and extended by _Harvey P. Dale_, Mar 18 2011

%E Former name replaced with Feb 22 2006 comment from _Stefan Steinerberger_ by _Jon E. Schoenfield_, Feb 14 2015

%E Edited by _Jon E. Schoenfield_, Feb 13 2015, Feb 14 2015