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 A239076 #11 Mar 12 2014 08:01:40
%S A239076 1,1,2,4,10,26,66,158,376,891,2137,5140,12376,29756,71468,171596,
%T A239076 412084,989800,2377717,5711705,13720054,32955996,79161006,190147558,
%U A239076 456743814,1097123162,2635347280,6330234855,15205529809,36524416280,87733426944,210739993784
%N A239076 Number of self-inverse permutations p on [n] with displacement of elements restricted by 4: |p(i)-i| <= 4.
%C A239076 Column k=4 of A238888.
%H A239076 Joerg Arndt and Alois P. Heinz, <a href="/A239076/b239076.txt">Table of n, a(n) for n = 0..1000</a>
%F A239076 G.f.: -(x+1)*(x^7 -x^6+2*x^5 -x^4 +x^3 +x-1) / (x^16 +x^15 +2*x^14 +x^13 +x^12 +2*x^11 +x^10 +3*x^9 -4*x^8 -5*x^7 -9*x^6 -6*x^5 -x^4 -x^3 -2*x^2 -x+1).
%p A239076 gf:= -(x+1)*(x^7 -x^6+2*x^5 -x^4 +x^3 +x-1) / (x^16 +x^15 +2*x^14 +x^13 +x^12 +2*x^11 +x^10 +3*x^9 -4*x^8 -5*x^7 -9*x^6 -6*x^5 -x^4 -x^3 -2*x^2 -x+1):
%p A239076 a:= n-> coeff(series(gf, x, n+1), x, n):
%p A239076 seq(a(n), n=0..40);
%t A239076 CoefficientList[Series[-(x + 1) (x^7 - x^6 + 2 x^5 - x^4 + x^3 + x - 1)/(x^16 + x^15 + 2 x^14 + x^13 + x^12 + 2 x^11 + x^10 + 3 x^9 - 4 x^8 - 5 x^7 - 9 x^6 - 6 x^5 - x^4 - x^3 - 2 x^2 - x + 1), {x, 0, 50}], x] (* _Vincenzo Librandi_, Mar 12 2014 *)
%Y A239076 Cf. A000085, A238888
%K A239076 nonn,easy
%O A239076 0,3
%A A239076 _Joerg Arndt_ and _Alois P. Heinz_, Mar 10 2014