A270038 a(n) = Smallest m >= 3 containing no ones when represented in any base from 3 through n.

6, 8, 60, 560, 870899850, 871017138, 871017138, 65473886952, 65473886954

Offset: 3

Author

Nathan Fox, Mar 09 2016

Keywords

• nonn
• base
• more

Comments

It remains to be determined if the sequence is finite.

a(12) > 3.4*10^30, if it exists. - Giovanni Resta, Oct 14 2019

Crossrefs

Cf. A270028, A270037, A216192, A270039, A270040, A270041, A270042, A270043, A270044, A270045.

Programs

Mathematica

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