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 A274194 #5 Jun 16 2016 14:01:30 %S A274194 1,2,3,4,6,8,10,14,18,23,31,40,52,68,88,114,148,192,249,323,420,545, %T A274194 707,919,1191,1547,2009,2606,3386,4396,5707,7413,9623,12496,16228, %U A274194 21069,27363,35531,46139,59920,77806,101043,131215,170392,221283,287355,373168 %N A274194 Row sums of the array A274193, defined by g(n,k) = 1 for n >= 0; g(n,k) = 0 if k > n; g(n,k) = g(n-1,k-1) + g(n-1,3k) for n > 0, k > 1. %C A274194 See A274195 for the limit of a(n)/a(n-1). %e A274194 (g(9,k)) = (1,4,4,4,3,2,2,1,1,1), so that a(9) = 23. %t A274194 z = 150; g[n_, 0] = g[n, 0] = 1; %t A274194 g[n_, k_] := g[n, k] = If[k > n, 0, g[n - 1, k - 1] + g[n - 1, 3 k]]; %t A274194 t = Table[g[n, k], {n, 0, z}, {k, 0, n}]; w = Map[Total, t]; %Y A274194 Cf. A274193, A274195. %K A274194 nonn,easy %O A274194 0,2 %A A274194 _Clark Kimberling_, Jun 14 2016