A056704 Numbers k such that 3*10^k + 1*R_k is prime, where R_k = 11...1 is the repunit (A002275) of length k.
0, 1, 2, 5, 10, 11, 13, 34, 47, 52, 77, 88, 554, 580, 1310, 1505, 8537, 15892, 24022, 27041, 37922, 40033, 134122, 165358, 183760
Offset: 1
Links
Programs
-
Mathematica
Do[ If[ PrimeQ[ 3*10^n + (10^n-1)/9], Print[n]], {n, 0, 10000}]
Extensions
Added zero by Robert Price, Oct 28 2014
a(18)-a(25) from Kamada data by Robert Price, Dec 19 2014
Comments