A270044 a(n) = Smallest m >= 17 containing no eights when represented in any base from 9 through n.

18, 19, 20, 21, 22, 23, 24, 25, 27, 27, 29, 29, 31, 31, 33, 33, 37, 37, 37, 37, 39, 39, 43, 43, 43, 43, 45, 45, 49, 49, 49, 49, 51, 51, 55, 55, 55, 55, 57, 57, 61, 61, 61, 61, 67, 67, 67, 67, 67, 67, 69, 69, 549, 590, 590, 590, 590, 594, 604, 630

Offset: 9

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 = 9..308

Crossrefs

Cf. A270034, A270037, A270038, A216192, A270039, A270040, A270041, A270042, A270043, A270045.

Programs

Mathematica

Table[SelectFirst[Range[17, 10^3], Total@ Map[Function[k, DigitCount[#, k, 8]], Range[9, n]] == 0 &], {n, 9, 68}] /. n_ /; MissingQ@ n -> Nothing (* Michael De Vlieger, Mar 10 2016, Version 10.2 *)