OFFSET
0,3
COMMENTS
Differs from A007953 at n=0, 101-109, 111-119 etc. [R. J. Mathar, Oct 20 2008]
LINKS
Indranil Ghosh, Table of n, a(n) for n = 0..10000
FORMULA
For example, a(837) = 8*a(2)+3*a(1)+7*a(0).
MATHEMATICA
a = {1}; Do[AppendTo[a, ListConvolve[Reverse@ Take[a, Length@ #], #][[1]] &@ IntegerDigits@ n], {n, 10^3}]; a (* Michael De Vlieger, Feb 12 2017 *)
PROG
(PARI) a(n) = if (!n, 1, my(d = digits(n)); sum(i=1, #d, d[i]*a(#d-i))); \\ Michel Marcus, Sep 13 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved