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 A318777 #19 Aug 04 2020 01:45:42
%S A318777 1,1,1,1,1,3,5,7,9,11,17,27,41,59,81,115,169,251,369,531,761,1099,
%T A318777 1601,2339,3401,4923,7121,10323,15001,21803,31649,45891,66537,96539,
%U A318777 140145,203443,295225,428299,621377,901667,1308553,1899003,2755601,3998355,5801689,8418795
%N A318777 Coefficients in expansion of 1/(1 - x - 2*x^5).
%C A318777 The coefficients in the expansion of 1/(1 - x - 2*x^5) are given by the sequence generated by the row sums in triangle A318775.
%C A318777 Coefficients in expansion of 1/(1 - x - 2*x^5) are given by the sum of numbers along "fourth Layer" skew diagonals pointing top-right in triangle A013609 ((1+2x)^n) and by the sum of numbers along "fourth Layer" skew diagonals pointing top-left in triangle A038207 ((2+x)^n), see links.
%D A318777 Shara Lalo and Zagros Lalo, Polynomial Expansion Theorems and Number Triangles, Zana Publishing, 2018, ISBN: 978-1-9995914-0-3.
%H A318777 Zagros Lalo, <a href="/A318777/a318777.pdf">Fourth layer skew diagonals in center-justified triangle of coefficients in expansion of (1 + 2x)^n.</a>
%H A318777 Zagros Lalo, <a href="/A318777/a318777_1.pdf">Fourth layer skew diagonals in center-justified triangle of coefficients in expansion of (2 + x)^n.</a>
%H A318777 <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,0,2).
%F A318777 a(0)=1, a(n) = a(n-1) + 2 * a(n-5) for n = 0,1...; a(n)=0 for n < 0.
%F A318777 G.f.: -1/(2*x^5 + x - 1). - _Chai Wah Wu_, Aug 03 2020
%p A318777 seq(coeff(series((1-x-2*x^5)^(-1),x,n+1), x, n), n = 0 .. 50); # _Muniru A Asiru_, Sep 26 2018
%t A318777 a[0] = 1; a[n_] := a[n] = If[n < 0, 0, a[n - 1] + 2 * a[n - 5]];Table[a[n], {n, 0, 45}] // Flatten
%t A318777 LinearRecurrence[{1, 0, 0, 0, 2}, {1, 1, 1, 1, 1}, 46]
%t A318777 CoefficientList[Series[1/(1 - x - 2 x^5), {x, 0, 45}], x]
%o A318777 (GAP) a:=[1,1,1,1,1,3];; for n in [7..50] do a[n]:=a[n-1]+2*a[n-5]; od; a; # _Muniru A Asiru_, Sep 26 2018
%Y A318777 Cf. A318775, A318776.
%Y A318777 Cf. A013609, A038207.
%Y A318777 Essentially a duplicate of A143447.
%K A318777 nonn,easy
%O A318777 0,6
%A A318777 _Zagros Lalo_, Sep 25 2018