OFFSET
1,3
FORMULA
G.f.: x+(Sum_{b>=2} (Sum_{k>=0} x^(b^k)/(Sum_{0<=i<b} x^(i*b^k)))/(1-x) - x). If the initial term was 0, the initial "x+" would not be needed. This value is rather arbitrary; changing the "n+1" in the definition to "n" would make it 0. - Franklin T. Adams-Watters, Nov 03 2005
MATHEMATICA
f[n_] := Count[Flatten@ Table[ IntegerDigits[n, b], {b, 2, n + 1}], 1]; Array[f, 63] (* Robert G. Wilson v, Nov 14 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved