|
|
A120105
|
|
Number triangle T(n,k) = lcm(1,..,2*n+2)/lcm(1,..,2*k+2).
|
|
2
|
|
|
1, 6, 1, 30, 5, 1, 420, 70, 14, 1, 1260, 210, 42, 3, 1, 13860, 2310, 462, 33, 11, 1, 180180, 30030, 6006, 429, 143, 13, 1, 360360, 60060, 12012, 858, 286, 26, 2, 1, 6126120, 1021020, 204204, 14586, 4862, 442, 34, 17, 1, 116396280, 19399380, 3879876, 277134, 92378, 8398, 646, 323, 19, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
Number triangle T(n,k) = [k<=n] + lcm(1,..,2n+2)/lcm(1,..,2k+2).
Sum_{k=0..floor(n/2)} T(n-k, k) = A120107(n). (End)
|
|
EXAMPLE
|
Triangle begins:
1;
6, 1;
30, 5, 1;
420, 70, 14, 1;
1260, 210, 42, 3, 1;
13860, 2310, 462, 33, 11, 1;
180180, 30030, 6006, 429, 143, 13, 1;
|
|
MAPLE
|
T:= (n, k)-> ilcm(seq(q, q=1..2*n+2))/ilcm(seq(r, r=1..2*k+2)):
|
|
MATHEMATICA
|
T[n_, k_]:= LCM@@Range[2*n+2]/(LCM@@Range[2*k+2]);
Table[T[n, k], {n, 0, 12}, {k, 0, n}]//Flatten (* G. C. Greubel, May 04 2023 *)
|
|
PROG
|
(GAP) Flat(List([0..9], n->List([0..n], k->Lcm(List([1..2*n+2], i->i))/Lcm(List([1..2*k+2], i->i))))); # Muniru A Asiru, Feb 26 2019
(Magma) [Lcm([1..2*n+2])/Lcm([1..2*k+2]): k in [0..n], n in [0..12]]; // G. C. Greubel, May 04 2023
(SageMath)
def f(n): return lcm(range(1, 2*n+3))
return f(n)//f(k)
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|