|
%I #11 Feb 18 2014 22:26:49
%S 1,1,1,1,3,1,1,1,4,1,1,1,11,5,1,1,1,1,16,6,1,1,1,1,42,22,7,1,1,1,1,1,
%T 64,29,8,1,1,1,1,1,163,93,37,9,1,1,1,1,1,1,256,130,46,10,1,1,1,1,1,1,
%U 638,386,176,56,11,1
%N Triangle read by rows: T(n,k) = 1 for k <= n/2, T(n,k)=A055248 otherwise.
%e {1},
%e {1, 1},
%e {1, 3, 1},
%e {1, 1, 4, 1},
%e {1, 1, 11, 5, 1},
%e {1, 1, 1, 16, 6, 1},
%e {1, 1, 1, 42, 22, 7, 1},
%e {1, 1, 1, 1, 64, 29, 8, 1},
%e {1, 1, 1, 1, 163, 93, 37, 9, 1},
%e {1, 1, 1, 1, 1, 256, 130, 46, 10, 1},
%e {1, 1, 1, 1, 1, 638, 386, 176, 56, 11, 1}
%t t[n_, m_] = Sum[Binomial[n, m - k], {k, 0, m}];
%t a = Table[Table[If[t[n, m] <= Sum[t[n, m], {m, 0, n}]/( n + 1), 1, t[n, n - m]], {m, 0, n}], {n, 0, 10}];
%t Flatten[%]
%K nonn,easy,tabl
%O 0,5
%A _Roger L. Bagula_ and _Gary W. Adamson_, Mar 02 2009
%E Edited by _Joerg Arndt_, Sep 17 2013
|
