%I #46 Sep 08 2022 08:44:59
%S 1,3,2,4,3,5,4,6,5,7,6,8,7,9,8,10,9,11,10,12,11,13,12,14,13,15,14,16,
%T 15,17,16,18,17,19,18,20,19,21,20,22,21,23,22,24,23,25,24,26,25,27,26,
%U 28,27,29,28,30,29,31,30,32,31,33,32,34,33,35,34,36,35,37,36,38,37,39
%N Expansion of (1 + 2*x - 2*x^2)/( (1+x)*(1-x)^2 ).
%H Reinhard Zumkeller, <a href="/A052938/b052938.txt">Table of n, a(n) for n = 0..10000</a>
%H INRIA Algorithms Project, <a href="http://ecs.inria.fr/services/structure?nbr=929">Encyclopedia of Combinatorial Structures 929</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (1,1,-1).
%F G.f.: (1+2*x-2*x^2)/((1+x)*(1-x)^2).
%F a(n) = -a(n-1) + n + 3, with a(0)=1.
%F a(n) = (3*(-1)^(n+1) + 2*n + 7)/4.
%F A112034(n) = 3*2^a(n); a(n) = A109613(n+2) - A084964(n). - _Reinhard Zumkeller_, Aug 27 2005
%F a(n) = A035106(n+3) - A035106(n+2). - _Reinhard Zumkeller_, Oct 06 2015
%F a(n) = A060762(n+1) - 1. - _Filip Zaludek_, Nov 19 2016
%F E.g.f.: ((5+x)*sinh(x) + (2+x)*cosh(x))/2. - _G. C. Greubel_, Oct 18 2019
%p spec := [S,{S=Prod(Union(Sequence(Z),Z,Z),Sequence(Prod(Z,Z)))},unlabeled ]: seq(combstruct[count ](spec,size=n), n=0..20);
%p seq((2*n+7-3*(-1)^n)/4, n=0..30); # _G. C. Greubel_, Oct 18 2019
%t LinearRecurrence[{1,1,-1},{1,3,2},80] (* _Harvey P. Dale_, Apr 10 2019 *)
%o (PARI) a(n)=([0,1,0; 0,0,1; -1,1,1]^n*[1;3;2])[1,1] \\ _Charles R Greathouse IV_, Sep 02 2015
%o (Haskell)
%o a052938 n = a052938_list !! n
%o a052938_list = 1 : 3 : 2 : zipWith (-) [5..] a052938_list
%o -- _Reinhard Zumkeller_, Oct 06 2015
%o (Magma) [(2*n+7-3*(-1)^n)/4: n in [0..30]]; // _G. C. Greubel_, Oct 18 2019
%o (Magma) R<x>:=PowerSeriesRing(Integers(), 75); Coefficients(R!( (1 + 2*x - 2*x^2)/( (1+x)*(1-x)^2 ))); // _Marius A. Burtea_, Oct 18 2019
%o (Sage) [(2*n+7-3*(-1)^n)/4 for n in (0..30)] # _G. C. Greubel_, Oct 18 2019
%o (GAP) List([0..30], n-> (2*n+7-3*(-1)^n)/4); # _G. C. Greubel_, Oct 18 2019
%Y Cf. A028242 (same sequence with 1,0,2 prefix).
%Y Cf. A035106.
%K easy,nonn
%O 0,2
%A encyclopedia(AT)pommard.inria.fr, Jan 25 2000
%E More terms from _James A. Sellers_, Jun 06 2000