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 A274201 #6 Jun 16 2016 21:45:03 %S A274201 1,1,1,1,2,2,2,3,4,4,5,7,8,9,12,15,17,21,27,32,37,47,58,68,82,103,124, %T A274201 147,181,223,266,321,396,480,575,701,858,1033,1248,1525,1852,2232, %U A274201 2712,3305,3998,4836,5886,7148,8644,10487,12752,15453,18713,22731,27596 %N A274201 Limiting reverse row of the array A274196. %C A274201 The triangular array (g(n,k)) in A274196 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,4) for n > 0, k > 1. %t A274201 g[n_, 0] = g[n, 0] = 1; %t A274201 g[n_, k_] := g[n, k] = If[k > n, 0, g[n - 1, k - 1] + g[n - 1, 4 k]]; %t A274201 z = 300; w = Reverse[Table[g[z, k], {k, 0, z}]]; %t A274201 Take[w, z/3] %Y A274201 Cf. A274196, A274199, A274200. %K A274201 nonn,easy %O A274201 1,5 %A A274201 _Clark Kimberling_, Jun 16 2016