A270040 a(n) = Smallest m >= 9 containing no fours when represented in any base from 5 through n.
10, 11, 12, 13, 15, 15, 17, 17, 66, 75, 75, 86, 86, 90, 138, 138, 138, 138, 138, 138, 138, 138, 138, 182, 182, 182, 182, 182, 182, 182, 182, 182, 185, 781817578165, 781817578165, 7826560751018861596150680
Offset: 5
Links
- Nathan Fox, Table of n, a(n) for n = 5..59
Crossrefs
Programs
-
Mathematica
Table[SelectFirst[Range[9, 10^3], Total@ Map[Function[k, DigitCount[#, k, 4]], Range[5, n]] == 0 &], {n, 5, 60}] /. n_ /; MissingQ@ n -> Nothing (* Michael De Vlieger, Mar 10 2016, Version 10.2 *)
Comments