A033110 Number of 8'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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 15, 16, 18, 19, 21, 22, 24, 26, 28, 29, 32, 33, 35, 37, 39, 40, 44, 45, 47, 49, 52, 53, 56, 57, 60, 63, 65, 66, 70, 71, 74, 76, 79, 80, 84, 86, 89, 91, 93, 94, 100

Offset

1,17

Links

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

Mathematica

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

Crossrefs

Cf. A033094, A033096, A033098, A033100, A033102, A033104, A033106, A033108, A033109, A033112.

Sequence in context: A353744 A309129 A307345 * A049812 A093668 A026501

Adjacent sequences: A033107 A033108 A033109 * A033111 A033112 A033113

Keyword

nonn,base

Author

Clark Kimberling

Status

approved