OFFSET
1,29
MATHEMATICA
f[n_] := Count[Flatten@ Table[ IntegerDigits[n, b], {b, 2, n + 1}], 9]; Array[f, 90](* Robert G. Wilson v, Nov 14 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved