|
|
A096209
|
|
Primes of the form 10 followed by 9's only.
|
|
2
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Or, primes of the form 10^k + 10^(k-1) - 1.
|
|
LINKS
|
|
|
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 *)
|
|
PROG
|
(PARI) f(n) = for(x=1, n, y=10^x+10^(x-1)-1; if(ispseudoprime(y), print1(y", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|