A030433 Primes of form 10*k + 9.
19, 29, 59, 79, 89, 109, 139, 149, 179, 199, 229, 239, 269, 349, 359, 379, 389, 409, 419, 439, 449, 479, 499, 509, 569, 599, 619, 659, 709, 719, 739, 769, 809, 829, 839, 859, 919, 929, 1009, 1019, 1039, 1049, 1069, 1109, 1129, 1229, 1249, 1259, 1279, 1289
Offset: 1
Keywords
Links
- Michael B. Porter, Table of n, a(n) for n = 1..100000
- A. Granville and G. Martin, Prime number races, arXiv:math/0408319 [math.NT], 2004.
- Erika Klarreich, Mathematicians Discover Prime Conspiracy, Quanta Magazine, 2016.
- R. J. Lemke Oliver and K. Soundararajan, Unexpected biases in the distribution of consecutive primes, arXiv:1603.03720 [math.NT], 2016.
Programs
-
GAP
Filtered(List([1..500],n->10*n+9),IsPrime); # Muniru A Asiru, Apr 27 2018
-
Maple
select(isprime,[seq(10*n+9,n=1..500)]); # Muniru A Asiru, Apr 27 2018
-
Mathematica
Select[Prime@Range[210], Mod[ #, 10] == 9 &] (* Ray Chandler, Nov 07 2006 *) Select[Range[9, 1300, 10], PrimeQ] (* Harvey P. Dale, Jun 01 2012 *) Prime@Flatten@Position[Length@FactorList[((1+d)^5-1)/d,Modulus->#]&/@Prime@Range@200,3] (* Federico Provvedi, Apr 04 2018 *)
-
PARI
select(n->n%10==9, primes(100)) \\ Charles R Greathouse IV, Apr 29 2015
-
PARI
for(n=1, 1e3, if(isprime(p=10*n+9), print1(p, ", "))); \\ Altug Alkan, Apr 19 2018
Formula
Extensions
Extended by Ray Chandler, Nov 07 2006
Comments