OFFSET
4,1
COMMENTS
It remains to be determined if the sequence is finite.
MAPLE
A270039 := proc(n)
local m, nothree, b;
for m from 7 do
nothree := true;
for b from 4 to n do
convert(convert(m, base, b), set) ;
if 3 in % then
nothree := false;
break;
fi;
end do:
if nothree then
return m;
end if;
end do:
end proc: # R. J. Mathar, Mar 11 2016
MATHEMATICA
Table[SelectFirst[Range[7, 10^3], Total@ Map[Function[k, DigitCount[#, k, 3]], Range[4, n]] == 0 &], {n, 7, 60}] /. n_ /; MissingQ@ n -> Nothing (* Michael De Vlieger, Mar 10 2016, Version 10.2 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Nathan Fox, Mar 09 2016
STATUS
approved