A155169 Triangle sequence:t(n,m)=(2 n - Binomial[n, m] + m! + (-m + n)!).

1, 3, 3, 6, 4, 6, 12, 6, 6, 12, 32, 11, 6, 11, 32, 130, 30, 8, 8, 30, 130, 732, 127, 23, 4, 23, 127, 732, 5054, 728, 115, 9, 9, 115, 728, 5054, 40336, 5049, 710, 86, -6, 86, 710, 5049, 40336, 362898, 40330, 5024, 660, 36, 36, 660, 5024, 40330, 362898, 3628820, 362891

Offset

0,2

Comments

Row sums are:

{1, 6, 16, 36, 92, 336, 1768, 11812, 92356, 817896, 8075024,...}.

The middle numbers are t(n,Floor[n/2]): {1, 3, 4, 6, 6, 8, 4, 9, -6, 36, 8,...}

Links

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

Example

{1},
{3, 3},
{6, 4, 6},
{12, 6, 6, 12},
{32, 11, 6, 11, 32},
{130, 30, 8, 8, 30, 130},
{732, 127, 23, 4, 23, 127, 732},
{5054, 728, 115, 9, 9, 115, 728, 5054},
{40336, 5049, 710, 86, -6, 86, 710, 5049, 40336},
{362898, 40330, 5024, 660, 36, 36, 660, 5024, 40330, 362898},
{3628820, 362891, 40297, 4946, 554, 8, 554, 4946, 40297, 362891, 3628820}

Mathematica

Table[Table[ (2 n - Binomial[n, m] + m! + (-m + n)!), {m, 0, n}], {n, 0, 10}];
Flatten[%]

Crossrefs

Sequence in context: A369501 A324000 A048149 * A144624 A023827 A199153

Adjacent sequences: A155166 A155167 A155168 * A155170 A155171 A155172

Keyword

sign,tabl,uned

Author

Roger L. Bagula, Jan 21 2009

Status

approved