A100473 Numbers k such that 9*10^k + R_k + 6 is prime, where R_k = 11...1 is the repunit (A002275) of length k.
1, 17, 23, 73, 131, 473, 685, 701, 1909, 3029, 3473, 4193, 9931
Offset: 1
Examples
n = 1, 17, so that 97 and 911111111111111117 are primes.
Links
Programs
-
Mathematica
Do[ If[ PrimeQ[(82*10^n + 53)/9], Print[n]], {n, 0, 10000}] (* Robert G. Wilson v, Jan 19 2005 *)
Formula
a(n) = A100999(n) + 1.
Extensions
a(8)-a(12) from Robert G. Wilson v, Jan 12 2005
a(13) from Robert G. Wilson v, Jan 12 2005
Comments