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 A114719 #16 Jun 12 2016 21:28:48 %S A114719 0,1,4,10,14,15,21,34,40,50,74,62,78,81,140,170,153,161,277,227,313, %T A114719 260,332,304,406,334,383,504,614,632,643,539,775,764,775,664,1003,974, %U A114719 1095,847,917,1144,1230,1140,1309,1203,1413,1265,1438,1698,1510,1035,1194 %N A114719 a(n) = sum of terms in n-th row of triangle A112592. %e A114719 The 7th row of triangle A112592 is [6,3,3,3,0,3,3]. So a(7) = 6+3+3+3+0+3+3 = 21. %t A114719 f[l_] := Block[{p, t}, p = l[[ -1]]; k = Length @ p; t = Table[Count[GCD[p, n], 1], {n, k + 1}]; Return @ Append[l, t];]; Plus @@@ Nest[f, {{0}}, 52] (* _Robert G. Wilson v_ *) %Y A114719 Cf. A112592, A114718. %K A114719 nonn %O A114719 1,3 %A A114719 _Leroy Quet_, Dec 27 2005 %E A114719 More terms from _Robert G. Wilson v_, Dec 28 2005 %E A114719 Typos in Mma program corrected by _Giovanni Resta_, Jun 12 2016