A146532 - OEIS

%I #6 Apr 11 2013 02:56:42

%S 1,1,1,1,2,1,1,1,1,1,1,4,2,4,1,1,1,2,2,1,1,1,6,3,12,3,6,1,1,1,3,3,3,3,

%T 1,1,1,8,4,24,6,24,4,8,1,1,1,4,4,6,6,4,4,1,1,1,10,5,40,10,60,10,40,5,

%U 10,1

%N Triangle read by rows: a(n)=2^Floor[n/2]*Gamma[1 + Floor[n/2]]; t(n,m) = a[n]/(a[n - m]*a[m]).

%C The row sums are: {1, 2, 4, 4, 12, 8, 32, 16, 80, 32, 192}.

%F a(n)=2^Floor[n/2]*Gamma[1 + Floor[n/2]]; t(n,m) = a[n]/(a[n - m]*a[m]).

%e {1}, {1, 1}, {1, 2, 1}, {1, 1, 1, 1}, {1, 4, 2, 4, 1}, {1, 1, 2, 2, 1, 1}, {1, 6, 3, 12, 3, 6, 1}, {1, 1, 3, 3, 3, 3, 1, 1}, {1, 8, 4, 24, 6, 24, 4, 8, 1}, {1, 1, 4, 4, 6, 6, 4, 4, 1, 1}, {1, 10, 5, 40, 10, 60, 10, 40, 5, 10, 1}

%t Clear[a, n, t]; a[n_] = 2^Floor[n/2]*Gamma[1 + Floor[n/2]]; t[n_, m_] = a[n]/(a[n - m]*a[m]); Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]

%K nonn,tabl

%O 0,5

%A _Roger L. Bagula_, Oct 30 2008