OFFSET
10,1
LINKS
Nathan Fox, Table of n, a(n) for n = 10..10000
MATHEMATICA
Table[SelectFirst[Range[11, 10^3], Total@ Drop[Most[DigitCount[n, #]], 9] > 0 &], {n, 10, 120}] (* Michael De Vlieger, Mar 10 2016, Version 10 *)
PROG
(PARI) a(n) = my(b=10); while(vecmax(digits(n, b)) < 10, b++); b; \\ Michel Marcus, Mar 10 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Nathan Fox, Mar 08 2016
STATUS
approved