login
CONTINUANT transform of Catalan numbers 1, 2, 5, 14, 42, ...
2

%I #11 Feb 25 2017 04:52:54

%S 1,3,16,227,9550,1260827,540904333,773494457017,3760730590920987,

%T 63165231778603354669,3713231319097707398492821,

%U 772396673211317543153892036521,573813488532401034128124101329943721,1534629746271367018386831539104008577227761

%N CONTINUANT transform of Catalan numbers 1, 2, 5, 14, 42, ...

%H Alois P. Heinz, <a href="/A071897/b071897.txt">Table of n, a(n) for n = 1..50</a>

%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>

%p a:= proc(n) option remember; `if`(n<0, 0,

%p `if`(n=0, 1, binomial(2*n, n)/(n+1) *a(n-1) +a(n-2)))

%p end:

%p seq(a(n), n=1..20); # _Alois P. Heinz_, Aug 06 2013

%t a[n_] := a[n] = If[n<0, 0, If[n==0, 1, CatalanNumber[n]*a[n-1] + a[n-2]]]; Table[a[n], {n, 1, 20}] (* _Jean-François Alcover_, Feb 25 2017, translated from Maple *)

%K nonn

%O 1,2

%A _N. J. A. Sloane_, Jun 10 2002