OFFSET
1,1
COMMENTS
Shifts left and divides by 3 under Euler transform.
LINKS
L. Foissy, Algebraic structures on typed decorated rooted trees, arXiv:1811.07572 [math.RA] (2018).
R. J. Mathar, Topologically distinct sets of non-intersecting circles in the plane, arXiv:1603.00077 [math.CO] (2016), Table 4.
N. J. A. Sloane, Transforms
FORMULA
a(n) = 3 * A006964(n).
MAPLE
with(numtheory): a:= proc(n) option remember; `if`(n<2, 3*n, (add(add(d*a(d), d=divisors(j)) *a(n-j), j=1..n-1))/ (n-1)) end: seq(a(n), n=1..30); # Alois P. Heinz, Sep 06 2008
MATHEMATICA
a[n_] := a[n] = If[n<2, 3*n, Sum[Sum[d*a[d], {d, Divisors[j]}] *a[n-j], {j, 1, n-1}]/(n-1)]; Array[a, 30] (* Jean-François Alcover, Feb 24 2016, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,eigen
AUTHOR
Christian G. Bower, Jan 04 1999
STATUS
approved