OFFSET
1,1
COMMENTS
LINKS
T. D. Noe, Table of n, a(n) for n=1..200
EXAMPLE
a(4)=23333 because 23333 is the smallest prime ending with exactly 4 identical digits.
MATHEMATICA
sp[n_]:=Module[{k=0}, While[!PrimeQ[k*10^IntegerLength[n]+n], k++]; k*10^IntegerLength[n]+n]; Join[{2}, Table[Min[sp/@FromDigits/@ Table[PadRight[{}, i, n], {n, {1, 3, 7, 9}}]], {i, 2, 20}]] (* Harvey P. Dale, Aug 28 2016; corrected by Jason Yuen, Oct 24 2025 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Sep 29 2007
STATUS
approved
