|
|
A093419
|
|
Denominators of row sums in triangle described in A093412.
|
|
4
|
|
|
1, 1, 3, 6, 5, 10, 35, 140, 126, 1260, 1155, 13860, 12870, 12012, 45045, 360360, 340340, 2042040, 1939938, 369512, 117572, 2586584, 7436429, 178474296, 171609900, 1487285800, 1434168450, 40156716600, 38818159380, 1164544781400
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[s = i = n; j = 1; x = i; y = j; While[x/y != 1, i--; j++; x += i; y += j; s += x/y]; Print[Denominator[s]], {n, 1, 30}] (* Ryan Propper, Aug 16 2005 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|