|
|
A120113
|
|
Bi-diagonal inverse of number triangle A120101.
|
|
3
|
|
|
1, -6, 1, 0, -5, 1, 0, 0, -14, 1, 0, 0, 0, -3, 1, 0, 0, 0, 0, -11, 1, 0, 0, 0, 0, 0, -13, 1, 0, 0, 0, 0, 0, 0, -2, 1, 0, 0, 0, 0, 0, 0, 0, -17, 1, 0, 0, 0, 0, 0, 0, 0, 0, -19, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
Triangle begins
1;
-6, 1;
0, -5, 1;
0, 0, -14, 1;
0, 0, 0, -3, 1;
0, 0, 0, 0, -11, 1;
0, 0, 0, 0, 0, -13, 1;
0, 0, 0, 0, 0, 0, -2, 1;
0, 0, 0, 0, 0, 0, 0, -17, 1;
0, 0, 0, 0, 0, 0, 0, 0, -19, 1;
0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1;
|
|
MATHEMATICA
|
A120114[n_]:= LCM@@Range[2*n+4]/(LCM@@Range[2*n+2]);
Table[A120113[n, k], {n, 0, 16}, {k, 0, n}]//Flatten
|
|
PROG
|
(Magma)
A120114:= func< n | Lcm([1..2*n+4])/Lcm([1..2*n+2]) >;
A120113:= func< n, k | k eq n select 1 else k eq n-1 select -A120114(n-1) else 0 >;
(SageMath)
if (k<n-1): return 0
elif (k==n-1): return -lcm(range(1, 2*n+3))/lcm(range(1, 2*n+1))
else: return 1
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|