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

Comments

It remains to be determined if the sequence is finite.

Links

Nathan Fox, Table of n, a(n) for n = 9..308

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

Crossrefs

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

Sequence in context: A004507 A296760 A297290 * A018823 A025144 A326540

Adjacent sequences: A270041 A270042 A270043 * A270045 A270046 A270047

Keyword

nonn,base

Author

Nathan Fox, Mar 09 2016

Status

approved