A270041 a(n) = Smallest m >= 11 containing no fives when represented in any base from 6 through n.
12, 13, 14, 15, 16, 18, 18, 20, 20, 22, 22, 24, 24, 28, 28, 28, 28, 144, 144, 160, 160, 162, 216, 216, 216, 216, 216, 216, 216, 216, 216, 223, 228, 316, 316, 316, 316, 316, 316, 316, 316, 316, 316, 316, 316, 316, 316, 487, 487
Offset: 6
Links
- Nathan Fox, Table of n, a(n) for n = 6..109
Crossrefs
Programs
-
Mathematica
Table[SelectFirst[Range[11, 10^3], Total@ Map[Function[k, DigitCount[#, k, 5]], Range[6, n]] == 0 &], {n, 6, 60}] /. n_ /; MissingQ@ n -> Nothing (* Michael De Vlieger, Mar 10 2016, Version 10.2 *)
Comments