login
A033104
Number of 5's when k is written in base b for all b and k satisfying 2<=b<=n+1, 1<=k<=n.
10
0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 9, 10, 12, 13, 15, 16, 19, 20, 22, 24, 26, 27, 31, 33, 36, 39, 43, 45, 51, 53, 57, 60, 63, 67, 74, 76, 79, 82, 88, 91, 98, 100, 104, 109, 113, 116, 124, 127, 132, 136, 141, 144, 151, 155, 162, 166
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 *)
KEYWORD
nonn,base
STATUS
approved