|
|
A033666
|
|
Base-2 digital convolution sequence (with smallest digits).
|
|
2
|
|
|
1, 1, 1, 2, 1, 2, 2, 3, 1, 3, 2, 4, 2, 4, 3, 5, 1, 2, 3, 4, 2, 3, 4, 5, 2, 3, 4, 5, 3, 4, 5, 6, 1, 3, 2, 4, 3, 5, 4, 6, 2, 4, 3, 5, 4, 6, 5, 7, 2, 4, 3, 5, 4, 6, 5, 7, 3, 5, 4, 6, 5, 7, 6, 8, 1, 3, 3, 5, 2, 4, 4, 6, 3, 5, 5, 7, 4, 6, 6, 8, 2, 4, 4, 6, 3, 5, 5, 7, 4, 6, 6, 8, 5, 7, 7, 9, 2, 4, 4, 6, 3, 5
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MAPLE
|
a:= proc(n) option remember; `if`(n=0, 1, (l->
add(l[-i]*a(i-1), i=1..nops(l)))(Bits[Split](n)))
end:
|
|
MATHEMATICA
|
c[ 0, _ ] := 1; c[ n_, b_ ] := c[ n, b ]=Module[ {mul}, mul=IntegerDigits[ n, b ]; Table[ c[ i, b ], {i, 0, Length[ mul ]-1} ].mul ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|