|
| |
| |
|
|
|
1, 1, 1, 1, 3, 1, 1, 5, 5, 1, 1, 14, 16, 14, 1, 1, 44, 55, 55, 44, 1, 1, 146, 187, 196, 187, 146, 1, 1, 504, 647, 686, 686, 647, 504, 1, 1, 1786, 2287, 2428, 2458, 2428, 2287, 1786, 1, 1, 6449, 8232, 8731, 8863, 8863, 8731, 8232, 6449, 1, 1, 23635, 30081, 31862, 32352
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,5
|
|
|
COMMENTS
|
Row sums are 1, 2, 5, 12, 46, 200, 864, 3676, 15462, 64552, 268316,...
|
|
|
LINKS
|
Table of n, a(n) for n=0..59.
|
|
|
FORMULA
|
T(n,k) = T(n,n-k).
|
|
|
EXAMPLE
|
1;
1, 1;
1, 3, 1;
1, 5, 5, 1;
1, 14, 16, 14, 1;
1, 44, 55, 55, 44, 1;
1, 146, 187, 196, 187, 146, 1;
1, 504, 647, 686, 686, 647, 504, 1;
1, 1786, 2287, 2428, 2458, 2428, 2287, 1786, 1;
1, 6449, 8232, 8731, 8863, 8863, 8731, 8232, 6449, 1;
1, 23635, 30081, 31862, 32352, 32454, 32352, 31862, 30081, 23635, 1;
|
|
|
MAPLE
|
A176700 :=proc(n, k)
2+A176697(n)-A176697(k)-A176697(n-k) ;
end proc: # R. J. Mathar, Jun 17 2015
|
|
|
MATHEMATICA
|
a[0] := 1; a[1] := 1; a[2]=3
a[n_] := a[n] = Table[a[i], {i, 0, n - 1}].Table[a[n - 1 - i], {i, 0, n - 1}];
t[n_, m_] := 2 + (-a[m] - a[n - m] + a[n]);
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]
|
|
|
CROSSREFS
|
Cf. A176697.
Sequence in context: A125690 A176481 A108553 * A300539 A300966 A300923
Adjacent sequences: A176697 A176698 A176699 * A176701 A176702 A176703
|
|
|
KEYWORD
|
nonn,tabl,easy
|
|
|
AUTHOR
|
Roger L. Bagula, Apr 24 2010
|
|
|
STATUS
|
approved
|
| |
|
|
