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 A122161 #17 Sep 19 2017 04:28:43
%S A122161 1,-2,1,-4,0,-9,-5,-23,-24,-65,-90,-196,-311,-613,-1039,-1954,-3419,
%T A122161 -6288,-11172,-20329,-36385,-65871,-118312,-213669,-384422,-693448,
%U A122161 -1248623,-2251097,-4054895,-7308466,-13167159,-23729196,-42755048,-77046281,-138827181,-250164695,-450772776
%N A122161 Expansion of x*(1 - 3*x + x^2) / (1 - x - 2*x^2 + x^3).
%H A122161 P. Steinbach, <a href="http://www.jstor.org/stable/2691048">Golden fields: a case for the heptagon</a>, Math. Mag. 70 (1997), no. 1, 22-31.
%H A122161 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (1,2,-1).
%F A122161 a(n) = A006053(n+1) - 3*A006053(n) + A006053(n-1). - _R. J. Mathar_, Nov 07 2011
%t A122161 M = {{0, -1, -1}, {-1, 0, 0}, {-1, 0, 1}}; v[1] = {1, 1, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
%o A122161 (PARI) Vec( x*(1 - 3*x + x^2) / (1 - x - 2*x^2 + x^3) + O(x^50)) \\ _Michel Marcus_, Sep 19 2017
%K A122161 easy,sign
%O A122161 1,2
%A A122161 _Gary W. Adamson_ and _Roger L. Bagula_, Oct 17 2006