A157603 Triangle read by rows: T(n,k) = 1 for k <= n/2, T(n,k)=A055248 otherwise.

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, 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, 638, 386, 176, 56, 11, 1

Offset: 0

Author

Roger L. Bagula and Gary W. Adamson, Mar 02 2009

Keywords

• nonn
• easy
• tabl

Examples

			{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, 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, 638, 386, 176, 56, 11, 1}
		

Programs

Mathematica

t[n_, m_] = Sum[Binomial[n, m - k], {k, 0, m}];
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}];
Flatten[%]

Extensions

Edited by Joerg Arndt, Sep 17 2013