|
%I #14 Mar 12 2016 22:15:49
%S 12,13,14,15,16,18,18,20,20,22,22,24,24,28,28,28,28,144,144,160,160,
%T 162,216,216,216,216,216,216,216,216,216,223,228,316,316,316,316,316,
%U 316,316,316,316,316,316,316,316,316,487,487
%N a(n) = Smallest m >= 11 containing no fives when represented in any base from 6 through n.
%C It remains to be determined if the sequence is finite.
%H Nathan Fox, <a href="/A270041/b270041.txt">Table of n, a(n) for n = 6..109</a>
%t 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 *)
%Y Cf. A270031, A270037, A270038, A216192, A270039, A270040, A270042, A270043, A270044, A270045.
%K nonn,base
%O 6,1
%A _Nathan Fox_, Mar 09 2016
|
