OFFSET
0,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 0..10000
EXAMPLE
2989 is BAD in base 16.
MATHEMATICA
FromDigits[#, 16]& /@ Flatten[Table[Tuples[Range[10, 15], k], {k, 1, 3}], 1]
Select[Range[3000], Min[IntegerDigits[#, 16]] > 9 &] (* T. D. Noe, Sep 04 2013 *)
PROG
(PARI) a(n)=my(d); while(n>=6^(d+1), n-=6^d++); sum(i=0, d, ((n\6^i)%6+10)<<(4*i)) \\ Charles R Greathouse IV, Sep 04 2013
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jean-François Alcover, Sep 04 2013
STATUS
approved