A102931 Numbers k such that 10^k + 2*R_k + 7 is prime, where R_k = 11...1 is the repunit (A002275) of length k.
1, 3, 6, 51, 57, 63, 150, 393, 420, 547, 42024, 43063, 101613, 107385
Offset: 1
Links
Programs
-
Mathematica
Do[ If[ PrimeQ[(11*10^n + 61)/9], Print[n]], {n, 0, 10000}]
Formula
a(n) = A102011(n) + 1.
Extensions
a(11)-a(12) from Erik Branger May 01 2013 by Ray Chandler, Aug 16 2013
a(13)-a(14) from Tyler Busby, Jan 31 2023
Comments