A270042 a(n) = Smallest m >= 13 containing no sixes when represented in any base from 7 through n.

14, 15, 16, 17, 18, 19, 21, 21, 23, 23, 25, 25, 29, 29, 29, 29, 31, 31, 35, 35, 35, 35, 37, 37, 228, 228, 232, 271, 271, 271, 271, 271, 273, 343, 343, 343, 343, 343, 343, 343, 343, 343, 343, 451, 451, 451, 451, 451, 451, 451, 451, 451, 451, 451, 451, 451, 451, 451, 455, 472, 472, 599

Offset: 7

Author

Nathan Fox, Mar 09 2016

Keywords

• nonn
• base

Comments

It remains to be determined if the sequence is finite.

Links

• Nathan Fox, Table of n, a(n) for n = 7..159

Crossrefs

Cf. A270032, A270037, A270038, A216192, A270039, A270040, A270041, A270043, A270044, A270045.

Programs

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 *)