|
|
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.
|
|
10
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|