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.

A059227 Last entry in n-th row of triangle defined in A059226.

This page as a plain text file.
%I A059227 #12 Dec 30 2024 17:30:17
%S A059227 1,1,4,18,94,544,3370,21878,146924,1012222,7114218,50808592,367669254,
%T A059227 2689974234,19864822564,147875395930,1108469655350,8359790718480,
%U A059227 63387403235682,482935966313310,3695204342149004,28383451250732662
%N A059227 Last entry in n-th row of triangle defined in A059226.
%H A059227 G. C. Greubel, <a href="/A059227/b059227.txt">Table of n, a(n) for n = 0..250</a>
%H A059227 <a href="/index/Bo#boustrophedon">Index entries for sequences related to boustrophedon transform</a>
%t A059227 T[i_, j_] := T[i, j] = Module[{r, s, t1}, If[i == 0 && j == 0,Return[1]];
%t A059227 If[j == 0, Return[0]]; t1 = T[i, j - 1]; For[r = 0, r <= i - j, r++,
%t A059227 For[s = 0, s <= j, s++, If[r + s != i, t1 = t1 + T[r + s, s]]]];
%t A059227 Return[t1]]; Table[T[n, n], {n, 0, 25}] (* _G. C. Greubel_, Jan 03 2017 *)
%t A059227 Join[{1}, CoefficientList[Nest[1+(3x-x^2)#+(x-x^2)#^2&, 1+O[x], 20], x]] (* _Oliver Seipel_, Dec 28 2024 *)
%K A059227 nonn
%O A059227 0,3
%A A059227 _N. J. A. Sloane_, Jan 19 2001