OFFSET
1,3
LINKS
N. J. A. Sloane, Transforms
MAPLE
k:=8: with (numtheory): dc:= proc(b, c) proc(n) option remember; add (b(d) *c(n/d), d=`if`(n<0, {}, divisors(n))) end end: a:='a': b[1]:= dc(a, a): for t from 2 to k do b[t]:= dc(b[t-1], b[t-1]) od: a:= n-> `if`(n=1, 1, b[k](n-1)): seq (a(n), n=1..20);
CROSSREFS
KEYWORD
eigen,nonn
AUTHOR
Alois P. Heinz, Sep 17 2008
STATUS
approved