

A096816


Row sums of triangle A096815, in which A096815(n,k) equals the kth term of the convolution of the two prior rows indexed by (nk) and k.


5



1, 2, 3, 5, 9, 15, 26, 44, 75, 129, 220, 378, 648, 1114, 1910, 3284, 5635, 9677, 16608, 28501, 48930, 83973, 144150, 247396, 424612, 728577, 1250185, 2144858, 3679772, 6313029, 10830673, 18581706, 31880471, 54698330, 93847987, 161021223
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


LINKS

Table of n, a(n) for n=0..35.


MATHEMATICA

T[n_, k_] := T[n, k] = If[n < k  k < 0, 0, If[k = 1  k == n, 1, Sum[T[nk, j]T[k, kj], {j, 0, k}]]]
Table[Sum[T[n, k], {k, 0, n}], {n, 0, 50}] [Emanuele Munarini, May 16 2012]


PROG

(Maxima) T(n, k):= if ( n<k or k<0 ) then 0 else if ( k<=1 or k=n ) then 1 else sum(T(nk, j)*T(k, kj), j, 0, k);
makelist(sum(T(n, k), k, 0, n), n, 0, 12); [Emanuele Munarini, May 12 2012]


CROSSREFS

Cf. A096815.
Sequence in context: A114138 A114140 A302018 * A220127 A286887 A018157
Adjacent sequences: A096813 A096814 A096815 * A096817 A096818 A096819


KEYWORD

nonn


AUTHOR

Paul D. Hanna, Jul 20 2004


STATUS

approved



