OFFSET
1,11
MATHEMATICA
f[n_] := Count[ Flatten@ Table[ IntegerDigits[k, b], {k, n}, {b, 2, n + 1}], 5] - (n - 5); f[1] = f[2] = f[3] = f[4] = 0; Array[f, 62] (* Robert G. Wilson v, Nov 14 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved