OFFSET
1,1
COMMENTS
Corresponding k, which cannot be multiples of 3, are in A174352. The next term has 176 digits, too large to include here. - Rick L. Shepherd, Mar 22 2010
MATHEMATICA
Select[Table[FromDigits[PadRight[{k}, k+1, 9]], {k, 200}], PrimeQ] (* Harvey P. Dale, Jun 22 2022 *)
PROG
(PARI) lista(nn) = for(k=1, nn, if(ispseudoprime(q=k*10^(k-1)-1), print1(q, ", "))); \\ Jinyuan Wang, Mar 24 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Oct 21 2008
EXTENSIONS
a(2) was 4999; corrected by Rick L. Shepherd, Mar 22 2010
STATUS
approved