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 A274200 #5 Jun 16 2016 21:43:41 %S A274200 1,1,1,2,2,3,4,5,7,9,12,16,20,27,35,45,60,77,101,132,170,223,289,375, %T A274200 490,634,826,1074,1392,1813,2352,3055,3973,5154,6700,8702,11296,14681, %U A274200 19058,24754,32156,41747,54232,70425,91451,118786,154241,200319,260157 %N A274200 Limiting reverse row of the array A274193. %C A274200 The triangular array (g(n,k)) at A274193 is defined as follows: 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,3) for n > 0, k > 1. %e A274200 Row g(9,k): 1,4,4,4,3,2,2,1,1,1; the reversal is %e A274200 1,1,1,2,2,3,4,4,4,1,..., which agrees with A274200 up to the first 7 terms. %t A274200 g[n_, 0] = g[n, 0] = 1; %t A274200 g[n_, k_] := g[n, k] = If[k > n, 0, g[n - 1, k - 1] + g[n - 1, 3 k]]; %t A274200 z = 300; w = Reverse[Table[g[z, k], {k, 0, z}]]; %t A274200 Take[w, z/3] %Y A274200 Cf. A274193, A274199, A274201. %K A274200 nonn,easy %O A274200 1,4 %A A274200 _Clark Kimberling_, Jun 16 2016