cp's OEIS Frontend

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.

A228705 Expansion of (1-2*x+4*x^2-2*x^3+x^4)/((1-x)^4*(1+x^2)^2).

This page as a plain text file.
%I A228705 #26 Sep 08 2022 08:46:05
%S A228705 1,2,4,10,19,28,40,60,85,110,140,182,231,280,336,408,489,570,660,770,
%T A228705 891,1012,1144,1300,1469,1638,1820,2030,2255,2480,2720,2992,3281,3570,
%U A228705 3876,4218,4579,4940,5320,5740,6181,6622,7084,7590,8119,8648,9200,9800,10425
%N A228705 Expansion of (1-2*x+4*x^2-2*x^3+x^4)/((1-x)^4*(1+x^2)^2).
%C A228705 Number of n-element subsets of [n+3] having an even sum. a(3) = 10: {1,2,3}, {1,2,5}, {1,3,4}, {1,3,6}, {1,4,5}, {1,5,6}, {2,3,5}, {2,4,6}, {3,4,5}, {3,5,6}. - _Alois P. Heinz_, Feb 04 2017
%C A228705 A159914, which is half the number of (n-3)-element subsets of {1..n} having an odd sum, satisfies the same recurrence relation. However, a simple relation between a(n) and A159914(n) is not obvious. - _M. F. Hasler_, Jun 22 2018
%H A228705 Vincenzo Librandi, <a href="/A228705/b228705.txt">Table of n, a(n) for n = 0..1000</a>
%H A228705 E. Kirkman, J. Kuzmanovich and J. J. Zhang, <a href="http://arxiv.org/abs/1305.3973">Invariants of (-1)-Skew Polynomial Rings under Permutation Representations</a>, arXiv preprint arXiv:1305.3973, 2013. See Example 5.6.
%H A228705 <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (4, -8, 12, -14, 12, -8, 4, -1).
%F A228705 a(n) = (n+2)*(2*(n+1)*(n+3)+3*(1+(-1)^n)*i^(n*(n+1)))/24, where i=sqrt(-1). [_Bruno Berselli_, Sep 07 2013]
%F A228705 a(0)=1, a(1)=2, a(2)=4, a(3)=10, a(4)=19, a(5)=28, a(6)=40, a(7)=60, a(n)=4*a(n-1)-8*a(n-2)+12*a(n-3)-14*a(n-4)+12*a(n-5)-8*a(n-6)+ 4*a(n-7)- a(n-8). - _Harvey P. Dale_, Apr 10 2014
%t A228705 CoefficientList[Series[(1 - 2 x + 4 x^2 - 2 x^3 + x^4) / ((1 - x)^4 (1 + x^2)^2), {x, 0, 50}], x] (* _Vincenzo Librandi_, Sep 07 2013 *)
%t A228705 LinearRecurrence[{4,-8,12,-14,12,-8,4,-1},{1,2,4,10,19,28,40,60},50] (* _Harvey P. Dale_, Apr 10 2014 *)
%o A228705 (Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1-2*x+4*x^2-2*x^3+x^4)/((1-x)^4*(1+x^2)^2)); // _Vincenzo Librandi_, Sep 07 2013
%Y A228705 Third lower diagonal of A282011.
%K A228705 nonn,easy
%O A228705 0,2
%A A228705 _N. J. A. Sloane_, Sep 06 2013