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,5

Links

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

Example

{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}

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[%]

Crossrefs

Sequence in context: A079110 A079619 A318577 * A305439 A270825 A364096

Adjacent sequences: A157600 A157601 A157602 * A157604 A157605 A157606

Keyword

nonn,easy,tabl

Author

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

Extensions

Edited by Joerg Arndt, Sep 17 2013

Status

approved