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,3

Links

Table of n, a(n) for n=1..30.

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

Essentially the same as A096620.

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

Sequence in context: A350661 A118413 A295320 * A160049 A096620 A382113

Adjacent sequences: A093416 A093417 A093418 * A093420 A093421 A093422

Keyword

nonn,frac

Author

Amarnath Murthy, Mar 30 2004

Extensions

Corrected and extended by Ryan Propper, Aug 16 2005

Status

approved