A103067 Numbers k such that 7*10^k + 8*R_k + 1 is prime, where R_k = 11...1 is the repunit (A002275) of length k.
1, 4, 18, 28, 55, 1728, 1876, 1884, 6841, 10782, 25366, 98446, 137250
Offset: 1
Links
Programs
-
Mathematica
Do[ If[ PrimeQ[(71*10^n + 1)/9], Print[n]], {n, 0, 10000}]
Formula
a(n) = A101153(n) + 1.
Extensions
a(10)-a(13) from Kamada data by Robert Price, Dec 14 2010
Comments