login
A270037
a(n) = Smallest m >= 3 containing no zeros when represented in any base from 3 through n.
12
4, 5, 7, 7, 13, 13, 13, 13, 13, 13, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157
OFFSET
3,1
COMMENTS
It remains to be determined if the sequence is finite.
Every known term in this sequence is in A069575, and every term in A069575 is in this sequence.
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
KEYWORD
nonn,base
AUTHOR
Nathan Fox, Mar 09 2016
STATUS
approved