A102994 Numbers n such that 4*10^n + 6*R_n - 5 is prime, where R_n = 11...1 is the repunit (A002275) of length n.
1, 2, 7, 9, 14, 24, 45, 49, 73, 74, 232, 338, 397, 504, 1063, 2817, 5305, 16768, 27060
Offset: 1
Links
Programs
-
Mathematica
Do[ If[ PrimeQ[(14*10^n - 17)/3], Print[n]], {n, 0, 10000}]
Formula
a(n) = A101729(n) + 1.
Extensions
Addition of a(18)-a(19) from Kamada data by Robert Price, Dec 10 2010
Comments