OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..20000
Michael Gilleland, Some Self-Similar Integer Sequences
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:
seq(a(n), n=0..101); # Alois P. Heinz, Apr 14 2021
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