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 A187732 #30 Jun 13 2015 00:53:51
%S A187732 0,1,13,133,1274,11942,111098,1030791,9554727,88535307,820278004,
%T A187732 7599523660,70405203700,652259875085,6042764572481,55982252063633,
%U A187732 518638725390318,4804846035350514,44513730857759982,412390365056271763,3820524794586339931,35394642842712164887,327908025365023678952
%N A187732 Expansion of x/(x^4 - 13x^3 + 36x^2 - 13x + 1).
%C A187732 This g.f. arose in a discussion with _R. K. Guy_ about divisibility sequences.
%H A187732 Vincenzo Librandi, <a href="/A187732/b187732.txt">Table of n, a(n) for n = 0..200</a>
%H A187732 <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (13,-36,13,-1).
%F A187732 a(0)=0, a(1)=1, a(2)=13, a(3)=133, a(n)=13*a(n-1)-36*a(n-2)+ 13*a(n-3)- a(n-4). - _Harvey P. Dale_, Mar 10 2015
%t A187732 CoefficientList[Series[x / (x^4 - 13 x^3 + 36 x^2 - 13 x + 1), {x, 0, 40}], x] (* _Vincenzo Librandi_, Jun 19 2013 *)
%t A187732 LinearRecurrence[{13,-36,13,-1},{0,1,13,133},30] (* _Harvey P. Dale_, Mar 10 2015 *)
%o A187732 (Maxima) makelist(coeff(taylor(x/(x^4-13*x^3+36*x^2-13*x+1), x, 0, n), x, n), n, 0, 22); /* _Bruno Berselli_, Jun 05 2011 */
%o A187732 (PARI) a=[0,1,13,133];for(i=1,99,a=concat(a, 13*a[#a]-36*a[#a-1]+13*a[#a-2]-a[#a-3]));a \\ _Charles R Greathouse IV_, Jun 05 2011
%K A187732 nonn,easy
%O A187732 0,3
%A A187732 _N. J. A. Sloane_, Mar 13 2011