A033112 Number of 9's when k is written in base b for all b and k satisfying 2<=b<=n+1, 1<=k<=n.

0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 29, 30, 32, 34, 36, 37, 40, 41, 43, 45, 48, 49, 52, 53, 56, 58, 60, 61, 65, 66, 69, 71, 74, 75, 78, 80, 83, 85, 87, 88, 94

Offset

1,19

Links

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

Mathematica

f[n_] := Count[ Flatten@ Table[ IntegerDigits[k, b], {k, n}, {b, 2, n + 1}], 9] - (n - 9); f[1] = f[2] = f[3] = f[4] = f[5] = f[6] = f[7] = f[8] = 0; Array[f, 69] (* Robert G. Wilson v, Nov 14 2012 *)

Crossrefs

Cf. A033094, A033096, A033098, A033100, A033102, A033104, A033106, A033108, A033110, A033111.

Sequence in context: A342256 A354928 A195044 * A049813 A354925 A362184

Adjacent sequences: A033109 A033110 A033111 * A033113 A033114 A033115

Keyword

nonn,base

Author

Clark Kimberling

Status

approved