cp's OEIS Frontend

A058923 a(n) = binomial(n,0) - binomial(n,2) + binomial(n,4).

%I A058923 #28 Dec 21 2024 23:51:15
%S A058923 1,1,0,-2,-4,-4,1,15,43,91,166,276,430,638,911,1261,1701,2245,2908,
%T A058923 3706,4656,5776,7085,8603,10351,12351,14626,17200,20098,23346,26971,
%U A058923 31001,35465,40393,45816,51766,58276,65380,73113,81511,90611,100451,111070,122508
%N A058923 a(n) = binomial(n,0) - binomial(n,2) + binomial(n,4).
%H A058923 Harry J. Smith, <a href="/A058923/b058923.txt">Table of n, a(n) for n = 0..200</a>
%H A058923 <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (5,-10,10,-5,1).
%F A058923 From _R. J. Mathar_, Mar 17 2009: (Start)
%F A058923 a(n) = 5a(n-1)-10a(n-2)+10a(n-3)-5a(n-4)+a(n-5).
%F A058923 G.f.: -(1-4*x-2*x^3+x^4+5*x^2)/(x-1)^5. (End)
%t A058923 CoefficientList[Series[-((z - 1)*z*((z - 1)*z + 4) + 1)/(z - 1)^5, {z, 0, 100}], z] (* _Vladimir Joseph Stephan Orlovsky_, Jul 16 2011 *)
%t A058923 Table[Binomial[n,0]-Binomial[n,2]+Binomial[n,4],{n,0,50}] (* or *) LinearRecurrence[{5,-10,10,-5,1},{1,1,0,-2,-4},50] (* _Harvey P. Dale_, Mar 02 2015 *)
%o A058923 (PARI) a(n) = 1 - binomial(n,2) + binomial(n,4) \\ _Harry J. Smith_, Jun 24 2009
%o A058923 (PARI) Vec(-(1-4*x-2*x^3+x^4+5*x^2)/(x-1)^5 + O(x^60)) \\ _Michel Marcus_, Jan 03 2016
%Y A058923 Cf. A000127.
%K A058923 sign,easy
%O A058923 0,4
%A A058923 _N. J. A. Sloane_, Jan 12 2001