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.

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

Links

Table of n, a(n) for n=1..53.

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 *)

Crossrefs

Cf. A033093, A033096, A033098, A033100, A033102, A033104, A033106, A033108, A033110, A033112.

Sequence in context: A018636 A068007 A224870 * A206522 A188016 A285058

Adjacent sequences: A033091 A033092 A033093 * A033095 A033096 A033097

Keyword

nonn,base

Author

Clark Kimberling

Status

approved