cp's OEIS Frontend

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.

A274200 Limiting reverse row of the array A274193.

This page as a plain text file.
%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