|
%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
|
