A270045 Smallest m >= 19 containing no nines when represented in any base from 10 through n.

20, 21, 22, 23, 24, 25, 26, 27, 28, 30, 30, 32, 32, 34, 34, 36, 36, 38, 38, 40, 40, 44, 44, 44, 44, 46, 46, 50, 50, 50, 50, 52, 52, 56, 56, 56, 56, 58, 58, 62, 62, 62, 62, 68, 68, 68, 68, 68, 68, 70, 70, 76, 76, 76, 76, 76, 76, 80, 80, 80, 80, 82, 82, 88, 88, 88, 88, 88, 88, 840

Offset

10,1

Comments

It remains to be determined if the sequence is finite.

Links

Nathan Fox, Table of n, a(n) for n = 10..359

Mathematica

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

Crossrefs

Cf. A270035, A270037, A270038, A216192, A270039, A270040, A270041, A270042, A270043, A270044.

Sequence in context: A008553 A007930 A319678 * A133895 A138602 A346400

Adjacent sequences: A270042 A270043 A270044 * A270046 A270047 A270048

Keyword

nonn,base

Author

Nathan Fox, Mar 09 2016

Status

approved