A270041 - OEIS

%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