This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A093419 #8 Nov 18 2018 01:14:12 %S A093419 1,1,3,6,5,10,35,140,126,1260,1155,13860,12870,12012,45045,360360, %T A093419 340340,2042040,1939938,369512,117572,2586584,7436429,178474296, %U A093419 171609900,1487285800,1434168450,40156716600,38818159380,1164544781400 %N A093419 Denominators of row sums in triangle described in A093412. %t A093419 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 A093419 Essentially the same as A096620. %Y A093419 Cf. A093412, A093413, A093414, A093415, A093417, A093418. %K A093419 nonn,frac %O A093419 1,3 %A A093419 _Amarnath Murthy_, Mar 30 2004 %E A093419 Corrected and extended by _Ryan Propper_, Aug 16 2005