A093419 Denominators of row sums in triangle described in A093412.

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

Offset: 1

Author

Amarnath Murthy, Mar 30 2004

Keywords

• nonn
• frac

Crossrefs

Essentially the same as A096620.

Cf. A093412, A093413, A093414, A093415, A093417, A093418.

Programs

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 *)

Extensions

Corrected and extended by Ryan Propper, Aug 16 2005