A139536 Smallest prime starting with 1 and followed by a string of n 0's.
101, 1009, 10007, 100003, 1000003, 100000037, 100000007, 1000000007, 100000000019, 100000000003, 10000000000037, 100000000000031, 1000000000000037, 10000000000000061, 100000000000000013
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..997
Programs
-
Mathematica
Table[Module[{k=1},While[CompositeQ[10^IntegerLength[k] FromDigits[ PadRight[ {1},n,0]]+k],k+=2];10^IntegerLength[k] FromDigits[ PadRight[ {1},n,0]]+k],{n,2,20}] (* Harvey P. Dale, Aug 07 2021 *)
Comments