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,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

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

Sequence in context: A089838 A297278 A296748 * A332924 A048125 A163482

Adjacent sequences: A270039 A270040 A270041 * A270043 A270044 A270045

Keyword

nonn,base

Author

Nathan Fox, Mar 09 2016

Status

approved