OFFSET
3,1
COMMENTS
It remains to be determined if the sequence is finite.
a(12) > 3.4*10^30, if it exists. - Giovanni Resta, Oct 14 2019
MATHEMATICA
Table[SelectFirst[Range[3, 10^3], Total@ Map[Function[k, DigitCount[#, k, 1]], Range[3, n]] == 0 &], {n, 3, 7}] /. n_ /; MissingQ@ n -> Nothing (* Michael De Vlieger, Mar 10 2016, Version 10.2 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Nathan Fox, Mar 09 2016
STATUS
approved