%I A033666
%S A033666 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,
%T A033666 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,
%U A033666 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
%N A033666 Base 2 digital convolution sequence, (with smallest digits).
%H A033666 Michael Gilleland, <a href="selfsimilar.html">Some Self-Similar Integer
Sequences</a>
%t A033666 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 ]
%Y A033666 Sequence in context: A109400 A000374 A120562 this_sequence A139124 A024160
A103284
%Y A033666 Adjacent sequences: A033663 A033664 A033665 this_sequence A033667 A033668
A033669
%K A033666 nonn
%O A033666 0,4
%A A033666 David W. Wilson (davidwwilson(AT)comcast.net), Wouter Meeussen (wouter.meeussen(AT)pandora.be)
|