login
A270045
Smallest m >= 19 containing no nines when represented in any base from 10 through n.
11
20, 21, 22, 23, 24, 25, 26, 27, 28, 30, 30, 32, 32, 34, 34, 36, 36, 38, 38, 40, 40, 44, 44, 44, 44, 46, 46, 50, 50, 50, 50, 52, 52, 56, 56, 56, 56, 58, 58, 62, 62, 62, 62, 68, 68, 68, 68, 68, 68, 70, 70, 76, 76, 76, 76, 76, 76, 80, 80, 80, 80, 82, 82, 88, 88, 88, 88, 88, 88, 840
OFFSET
10,1
COMMENTS
It remains to be determined if the sequence is finite.
MATHEMATICA
Table[SelectFirst[Range[19, 10^3], Total@ Map[Function[k, DigitCount[#, k, 9]], Range[10, n]] == 0 &], {n, 10, 79}] /. n_ /; MissingQ@ n -> Nothing (* Michael De Vlieger, Mar 10 2016, Version 10.2 *)
KEYWORD
nonn,base
AUTHOR
Nathan Fox, Mar 09 2016
STATUS
approved