A095680 13, together with primes of the form 10^k + 13 for some k >= 0.
13, 113, 1013, 100000000000000013, 10000000000000000000000013, 1000000000000000000000000000000000000000000000000000000000000000000000000000000013
Offset: 1
Keywords
Programs
-
Mathematica
Join[{13},Select[Table[FromDigits[PadRight[{1},n,0]]+13,{n,100}],PrimeQ]] (* Harvey P. Dale, May 26 2024 *)
Extensions
Corrected by N. J. A. Sloane, Dec 31 2016 at the suggestion of Harvey P. Dale.
Corrected by Harvey P. Dale, May 26 2024
Comments