A131505 - OEIS

%I #9 May 05 2021 09:41:50

%S 0,-1,0,2,1,-1,1,4,2,-1,2,6,3,-1,3,8,4,-1,4,10,5,-1,5,12,6,-1,6,14,7,

%T -1,7,16,8,-1,8,18,9,-1,9,20,10,-1,10,22,11,-1,11,24,12,-1,12,26,13,

%U -1,13,28,14,-1,14,30,15,-1,15,32,16,-1,16,34,17,-1,17,36,18,-1,18,38,19,-1,19,40,20,-1,20,42,21,-1,21,44,22,-1,22,46,23

%N n, -1, n, 2n+2.

%C Based on A129819 (the first with 0 0).

%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,-1,0,2,1,-1).

%F G.f.: (-x*(1 - 2*x + x^2 - x^3))/(1 - x + x^2 - x^3)^2. - _Georg Fischer_, May 05 2021

%p seq(coeff(series( (-x*(1 - 2*x + x^2 - x^3))/(1 - x + x^2 - x^3)^2, x, n+1), x, n), n = 0..40); # _Georg Fischer_, May 05 2021

%t Flatten[Table[{n,-1,n,2n+2},{n,0,30}]] (* _Harvey P. Dale_, Nov 15 2011 *)

%K sign,easy

%O 0,4

%A _Paul Curtz_, Aug 13 2007