OFFSET
7,1
COMMENTS
It remains to be determined if the sequence is finite.
LINKS
Nathan Fox, Table of n, a(n) for n = 7..159
MATHEMATICA
Table[SelectFirst[Range[13, 10^3], Total@ Map[Function[k, DigitCount[#, k, 6]], Range[7, n]] == 0 &], {n, 7, 68}] /. n_ /; MissingQ@ n -> Nothing (* Michael De Vlieger, Mar 10 2016, Version 10.2 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Nathan Fox, Mar 09 2016
STATUS
approved