|
|
A143183
|
|
Triangle t(n,m) = 1 + (2+n)*abs(n-2m) read by rows, 0<=m<=n.
|
|
2
|
|
|
1, 4, 4, 9, 1, 9, 16, 6, 6, 16, 25, 13, 1, 13, 25, 36, 22, 8, 8, 22, 36, 49, 33, 17, 1, 17, 33, 49, 64, 46, 28, 10, 10, 28, 46, 64, 81, 61, 41, 21, 1, 21, 41, 61, 81, 100, 78, 56, 34, 12, 12, 34, 56, 78, 100, 121, 97, 73, 49, 25, 1, 25, 49, 73, 97, 121
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Row sums are 1, 8, 19, 44, 77, 132, ... = n+1+(n+2)*A007590(n+1).
|
|
LINKS
|
|
|
FORMULA
|
t(n,m)=t(n,n-m).
|
|
EXAMPLE
|
1;
4, 4;
9, 1, 9;
16, 6, 6, 16;
25, 13, 1, 13, 25;
36, 22, 8, 8, 22, 36;
9, 33, 17, 1, 17, 33, 49;
64, 46, 28, 10, 10, 28, 46, 64;
81, 61, 41, 21, 1, 21, 41, 61, 81;
100, 78, 56, 34, 12, 12, 34, 56, 78, 100;
121, 97, 73, 49, 25, 1, 25, 49, 73, 97, 121;
|
|
MAPLE
|
1+(2+n)*abs(n-2*m) ;
|
|
MATHEMATICA
|
Clear[t, n, m]; t[n_, m_] = 1 + Abs[(1 + n - m)^2 - (1 + m)^2]; Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|