A096846 Numbers n for which 8*R_n - 1 is prime, where R_n = 11...1 is the repunit (A002275) of length n.
1, 3, 4, 6, 9, 12, 72, 118, 124, 190, 244, 304, 357, 1422, 2691, 5538, 7581, 21906, 32176, 44358, 120552, 137073, 152260
Offset: 1
Examples
n=6: a(4)=888887 which is prime.
Links
Programs
-
Mathematica
Do[ If[ PrimeQ[ 8(10^n - 1)/9 - 1], Print[n]], {n, 0, 5000}] (* Robert G. Wilson v, Oct 15 2004; corrected by Derek Orr, Sep 06 2014 *)
-
PARI
for(n=1,10^4,if(ispseudoprime(8*(10^n-1)/9-1),print1(n,", "))) \\ Derek Orr, Sep 06 2014
Formula
a(n) = A056695(n) + 1. - Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 01 2008
Extensions
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 01 2008
a(18)-a(20) discovered and reported to Makoto Kamada by Erik Branger; added to OEIS by Robert Price, May 20 2014
a(21)-a(23) from Kamada data by Tyler Busby, Apr 23 2024
Comments