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 A123219 #35 Sep 08 2022 08:45:28
%S A123219 1,1,81,2401,83521,2825761,96059601,3262808641,110841719041,
%T A123219 3765342321601,127910874833361,4345203949621921,147609026049038401,
%U A123219 5014361666349715681,170340687719412376401,5786569020271612560001
%N A123219 Expansion of -x*(x^4 + 52*x^3 - 122*x^2 - 28*x + 1) / ((x-1)*(x^2 - 34*x + 1)*(x^2 + 6*x + 1)).
%H A123219 G. C. Greubel, <a href="/A123219/b123219.txt">Table of n, a(n) for n = 1..653</a>
%H A123219 <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (29,174,-174,-29,1).
%F A123219 G.f.: -x*(x^4 + 52*x^3 - 122*x^2 - 28*x + 1) / ((x-1)*(x^2 - 34*x + 1)*(x^2 + 6*x + 1)). - _Colin Barker_, Jan 04 2013
%p A123219 seq(coeff(series(-x*(x^4+52*x^3-122*x^2-28*x+1)/((x-1)*(x^2-34*x+1)*(x^2+6*x+1)),x,n+1), x, n), n = 1 .. 20); # _Muniru A Asiru_, Oct 13 2018
%t A123219 LinearRecurrence[{29,174,-174,-29,1},{1,1,81,2401,83521},20] (* _Harvey P. Dale_, Jun 01 2018 *)
%o A123219 (PARI) x='x+O('x^30); Vec(-x*(x^4+52*x^3-122*x^2-28*x+1)/((x-1)*(x^2-34*x+1)*(x^2+6*x+1))) \\ _G. C. Greubel_, Oct 12 2018
%o A123219 (Magma) m:=30; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(-x*(x^4+52*x^3-122*x^2-28*x+1)/((x-1)*(x^2-34*x+1)*(x^2+6*x+1)))); // _G. C. Greubel_, Oct 12 2018
%Y A123219 Cf. A001333, A090390, A120717, A121801.
%K A123219 nonn,easy,less
%O A123219 1,3
%A A123219 _Roger L. Bagula_ and _Gary W. Adamson_, Oct 05 2006
%E A123219 New name from _Colin Barker_, Jan 04 2013
%E A123219 Edited by _Joerg Arndt_, Oct 13 2018