OFFSET
0,3
LINKS
Michael Gilleland, Some Self-Similar Integer Sequences
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