|
| |
|
|
A155103
|
|
Triangle read by rows: Matrix inverse of A155102.
|
|
5
|
|
|
|
1, 2, 1, 0, 0, 1, 6, 3, 0, 1, 0, 0, 0, 0, 1, 0, 0, 4, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 30, 15, 0, 5, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 6, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 28, 0, 0, 7, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 8, 0, 0, 0, 0, 0, 0
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
A028361 appears in the first column at A036987 positions. A028362 appears in the second column, A155105 in the third and A155104 in the fourth. A000384 appears as the third ray from zero and A100147 as the fourth.
|
|
|
LINKS
|
Table of n, a(n) for n=1..104.
|
|
|
EXAMPLE
|
Table begins:
1,
2,1,
0,0,1,
6,3,0,1,
0,0,0,0,1,
0,0,4,0,0,1,
0,0,0,0,0,0,1,
30,15,0,5,0,0,0,1,
|
|
|
MATHEMATICA
|
m = 14; t = Inverse[ Table[ Which[n == k, 1, n == 2*k, -k - 1, True, 0], {n, 1, m}, {k, 1, m}]]; Flatten[ Table[t[[n, k]], {n, 1, m}, {k, 1, n}]] (* Jean-François Alcover, Jul 19 2012 *)
|
|
|
CROSSREFS
|
Cf. A028361, A036987, A028362, A155105, A155104. A000384, A100147.
Sequence in context: A350681 A110855 A054673 * A295819 A048105 A335021
Adjacent sequences: A155100 A155101 A155102 * A155104 A155105 A155106
|
|
|
KEYWORD
|
nonn,tabl
|
|
|
AUTHOR
|
Mats Granvik, Jan 20 2009
|
|
|
STATUS
|
approved
|
| |
|
|
