|
|
A139535
|
|
Smallest prime starting with 1 that contains exactly n 0's.
|
|
2
|
|
|
101, 1009, 10007, 100003, 1000003, 100000037, 100000007, 1000000007, 100000000019, 100000000003, 10000000000037, 100000000000031, 1000000000000037, 10000000000000061, 100000000000000013
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
sp0[n_]:=Module[{c=1, d}, While[d=FromDigits[Join[PadRight[{1}, n+1, 0], IntegerDigits[ c]]]; DigitCount[d, 10, 0]>n||CompositeQ[d], c=c+2]; FromDigits[ Join[ PadRight[ {1}, n+1, 0], IntegerDigits[c]]]]; Array[sp0, 20] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 30 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|