OFFSET
3,1
COMMENTS
LINKS
Nathan Fox, Table of n, a(n) for n = 3..618
MATHEMATICA
Table[SelectFirst[Range[3, 10^3], Total@ Map[Function[k, DigitCount[#, k, 0]], Range[3, n]] == 0 &], {n, 3, 80}] /. n_ /; MissingQ@ n -> Nothing (* Michael De Vlieger, Mar 10 2016, Version 10.2 *)
PROG
(PARI) isok(m, n) = {for (b=3, n, if (! vecmin(digits(m, b)), return (0)); ); 1; }
a(n) = {my(m = 3); while (! isok(m, n), m++); m; } \\ Michel Marcus, Mar 10 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Nathan Fox, Mar 09 2016
STATUS
approved