|
|
A241475
|
|
Triangle t(n,r) = s(n,r)*s(n,r+1), where s(n,r) = lcm(n,n-1,...,n-r+1)/lcm(1,2,...,r-1,r), n >= 1 and 0 <= r < n.
|
|
0
|
|
|
1, 2, 2, 3, 9, 3, 4, 24, 12, 2, 5, 50, 100, 50, 5, 6, 90, 150, 50, 5, 1, 7, 147, 735, 1225, 245, 49, 7, 8, 224, 784, 1960, 980, 196, 28, 2, 9, 324, 3024, 3528, 1764, 1764, 252, 18, 3, 10, 450, 2700, 12600, 8820, 1764, 252, 18, 3, 1, 11, 605, 9075, 54450, 152460, 213444, 30492, 2178, 363, 121, 11
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The first eight terms and the first two terms of every row are identical to those of A132812.
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle begins:
1;
2, 2;
3, 9, 3;
4, 24, 12, 2;
5, 50, 100, 50, 5;
6, 90, 150, 50, 5, 1;
...
|
|
MATHEMATICA
|
s[_, 0] = 1; s[n_, r_?NumericQ] := LCM @@ Table[n-k+1, {k, 1, r}] / LCM @@ Table[k, {k, 1, r}]; t[n_, r_] := s[n, r]*s[n, r+1]; Table[t[n, r] , {n, 1, 12}, {r, 0, n-1}] // Flatten
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|