|
|
A270043
|
|
a(n) = Smallest m >= 15 containing no sevens when represented in any base from 8 through n.
|
|
10
|
|
|
16, 17, 18, 19, 20, 21, 22, 24, 24, 26, 26, 28, 28, 30, 30, 32, 32, 36, 36, 36, 36, 38, 38, 42, 42, 42, 42, 44, 44, 48, 48, 48, 48, 50, 50, 54, 54, 54, 54, 386, 386, 396, 400, 426, 426, 426, 515, 515, 515, 515, 515, 515, 515, 515, 515, 515, 515, 528
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
8,1
|
|
COMMENTS
|
It remains to be determined if the sequence is finite.
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[SelectFirst[Range[15, 10^3], Total@ Map[Function[k, DigitCount[#, k, 7]], Range[8, n]] == 0 &], {n, 8, 65}] /. n_ /; MissingQ@ n -> Nothing (* Michael De Vlieger, Mar 10 2016, Version 10.2 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|