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

0, 1, 1, 1, 2, 4, 6, 10, 12, 16, 20, 24, 27, 34, 38, 44, 51, 58, 63, 72, 77, 86, 94, 103, 111, 125, 132, 139, 147, 156, 162, 175, 183, 195, 207, 217, 228, 244, 253, 264, 276, 292, 303, 319, 329, 343, 358, 370, 381, 401, 415, 432, 448

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Crossrefs

Cf. A033094, A033096, A033097, A033100, A033102, A033104, A033106, A033108, A033110, A033112.

Programs

Mathematica

f[n_] := Count[ Flatten@ Table[ IntegerDigits[k, b], {k, n}, {b, 2, n + 1}], 2] - (n - 2); Array[f, 53] (* Robert G. Wilson v, Nov 14 2012 *)