[go: up one dir, main page]

login
A033667
Base 3 digital convolution sequence, (with smallest digits).
0
1, 1, 2, 1, 2, 3, 2, 3, 4, 1, 3, 5, 2, 4, 6, 3, 5, 7, 2, 4, 6, 3, 5, 7, 4, 6, 8, 1, 2, 3, 3, 4, 5, 5, 6, 7, 2, 3, 4, 4, 5, 6, 6, 7, 8, 3, 4, 5, 5, 6, 7, 7, 8, 9, 2, 3, 4, 4, 5, 6, 6, 7, 8, 3, 4, 5, 5, 6, 7, 7, 8, 9, 4, 5, 6, 6, 7, 8, 8, 9, 10, 1, 3, 5, 2, 4, 6, 3, 5, 7, 3, 5, 7, 4, 6, 8, 5, 7, 9, 5, 7, 9
OFFSET
0,3
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
Sequence in context: A317192 A053735 A359361 * A033923 A233420 A220098
KEYWORD
nonn,base
STATUS
approved