|
| |
|
|
A153491
|
|
A binomial based triangular sequence: t(n,m)=If[n == 1, 3, If[m == 0 || m == n, 2, 11*Binomial[n, k] - 8]].
|
|
0
| |
|
|
2, 3, 3, 2, 14, 2, 2, 25, 25, 2, 2, 36, 58, 36, 2, 2, 47, 102, 102, 47, 2, 2, 58, 157, 212, 157, 58, 2, 2, 69, 223, 377, 377, 223, 69, 2, 2, 80, 300, 608, 762, 608, 300, 80, 2, 2, 91, 388, 916, 1378, 1378, 916, 388, 91, 2, 2, 102, 487, 1312, 2302, 2764, 2302, 1312, 487, 102
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Row sums are:
{2, 6, 18, 54, 134, 302, 646, 1342, 2742, 5550, 11174,...}
|
|
|
FORMULA
| t(n,m)=If[n == 1, 3, If[m == 0 || m == n, 2, 11*Binomial[n, k] - 8]].
|
|
|
EXAMPLE
| {2},
{3, 3},
{2, 14, 2},
{2, 25, 25, 2},
{2, 36, 58, 36, 2},
{2, 47, 102, 102, 47, 2},
{2, 58, 157, 212, 157, 58, 2},
{2, 69, 223, 377, 377, 223, 69, 2},
{2, 80, 300, 608, 762, 608, 300, 80, 2},
{2, 91, 388, 916, 1378, 1378, 916, 388, 91, 2},
{2, 102, 487, 1312, 2302, 2764, 2302, 1312, 487, 102, 2}
|
|
|
MATHEMATICA
| Clear[t];
t[n_, m_] = If[n == 1, 3, If[m == 0 || m == n, 2, 11*Binomial[n, k] - 8]]
a1 = Table[Table[t[n, k], {k, 0, n}], {n, 0, 10}];
Flatten[a1]
|
|
|
CROSSREFS
| A131065
Sequence in context: A184829 A153290 A153516 * A153311 A153312 A153283
Adjacent sequences: A153488 A153489 A153490 * A153492 A153493 A153494
|
|
|
KEYWORD
| nonn,uned,tabl
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Dec 27 2008
|
| |
|
|
