A096209 Primes of the form 10 followed by 9's only.
109, 10999999999, 1099999999999, 1099999999999999999, 109999999999999999999999, 1099999999999999999999999999999, 10999999999999999999999999999999999999
Offset: 1
Programs
-
Mathematica
t = {}; Do[m = n; p = 10^(n + 1) + (10^n - 1); If[PrimeQ[p], AppendTo[t, p]], {n, 165}]; t (* Robert G. Wilson v *)
-
PARI
f(n) = for(x=1,n,y=10^x+10^(x-1)-1;if(ispseudoprime(y),print1(y", ")))
Formula
Extensions
Entry revised by N. J. A. Sloane, Apr 01 2006
Comments