OFFSET
1,1
COMMENTS
Next term is 88...8 (72 digits).
Corresponding values of primes are in A096843. - Jaroslav Krizek, Mar 19 2013
LINKS
Patrick De Geest, Repdigits : WONplate 83
MATHEMATICA
a[n_]:=NestList[FromDigits[Append[{#}, n]]&, n, 35]; Union[Join[{3}, Flatten[Table[Select[a[n], PrimeQ[#-1]&], {n, 2, 8, 2}]]]] (* Jayanta Basu, May 29 2013 *)
PROG
(PARI) u=30; for(n=1, u, r=(10^n-1)/9; for(a=1, 9, m=r*a; if(ispseudoprime(m-1), print1(m, ", ")))) \\ Felix Fröhlich, Jul 07 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset corrected and initial term added by Arkadiusz Wesolowski, Aug 14 2011
STATUS
approved