A216346 Primes of the form n*10^n - 1.
199, 2999, 799999999, 1099999999999, 14999999999999999, 38999999999999999999999999999999999999999, 59999999999999999999999999999999999999999999999999999999999999, 71999999999999999999999999999999999999999999999999999999999999999999999999
Offset: 1
Keywords
Crossrefs
Cf. A059671.
Programs
-
Mathematica
lst={}; Do[ p=n*10^n- 1; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 60}]; lst Select[Table[n*10^n-1,{n,100}],PrimeQ] (* Harvey P. Dale, Sep 17 2023 *)
Comments