login
Denominators of row sums in triangle described in A093412.
4

%I #8 Nov 18 2018 01:14:12

%S 1,1,3,6,5,10,35,140,126,1260,1155,13860,12870,12012,45045,360360,

%T 340340,2042040,1939938,369512,117572,2586584,7436429,178474296,

%U 171609900,1487285800,1434168450,40156716600,38818159380,1164544781400

%N Denominators of row sums in triangle described in A093412.

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

%Y Essentially the same as A096620.

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

%K nonn,frac

%O 1,3

%A _Amarnath Murthy_, Mar 30 2004

%E Corrected and extended by _Ryan Propper_, Aug 16 2005