A056684 Numbers k such that 50*R_k + 1 is prime, where R_k = 11...1 is the repunit (A002275) of length k.
11, 12, 608
Offset: 1
Links
Programs
-
Mathematica
Do[ If[ PrimeQ[50*(10^n - 1)/9 + 1], Print[n]], {n, 15000}]
Formula
a(n) = A099415(n) - 1. - Robert Price, Nov 16 2014
Comments