login
A033094
Number of 0's when k is written in base b for all b and k satisfying 2<=b<=n+1, 1<=k<=n.
10
0, 1, 2, 5, 7, 10, 11, 16, 21, 26, 29, 35, 37, 40, 43, 51, 56, 65, 70, 78, 83, 87, 89, 98, 103, 108, 115, 124, 129, 137, 139, 150, 159, 167, 175, 188, 194, 201, 207, 218, 223, 232, 235, 242, 250, 255, 258, 271, 278, 288, 296, 305, 310
OFFSET
1,3
MATHEMATICA
f[n_] := Count[ Flatten@ Table[ IntegerDigits[k, b], {k, n}, {b, 2, n + 1}], 0]; Array[f, 53] (* Robert G. Wilson v, Nov 14 2012 *)
KEYWORD
nonn,base
STATUS
approved