%I #57 Sep 08 2022 08:45:16
%S 1,2,5,13,34,88,228,591,1532,3971,10293,26680,69156,179256,464641,
%T 1204374,3121801,8091873,20974562,54367172,140922580,365278767,
%U 946821848,2454212215,6361447625,16489208080,42740897848,110786663616,287164880785,744346531114
%N a(n) = 2*a(n-1) + a(n-2) + a(n-3) + a(n-4), with a(0)=1, a(1)=2, a(3)=5, a(4)=13.
%C Row sums of generalized Pascal matrix A103141.
%C Generalized Pell numbers.
%C Row sums of the tetranacci convolution triangle A202193. - _Philippe Deléham_, Feb 16 2014
%H Vincenzo Librandi, <a href="/A103142/b103142.txt">Table of n, a(n) for n = 0..500</a>
%H Brian Hopkins and Stéphane Ouvry, <a href="https://arxiv.org/abs/2008.04937">Combinatorics of Multicompositions</a>, arXiv:2008.04937 [math.CO], 2020.
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (2,1,1,1).
%F a(n) = 2*a(n-1) + a(n-2) + a(n-3) + a(n-4).
%F G.f.: 1/(1 - 2*x - x^2 - x^3 - x^4).
%p m:=40; S:=series(1/(1-2*x-x^2-x^3-x^4), x, m+1): seq(coeff(S, x, j), j=0..m); # _G. C. Greubel_, Feb 12 2020
%t LinearRecurrence[{2,1,1,1}, {1,2,5,13}, 40] (* _Vladimir Joseph Stephan Orlovsky_, Jun 20 2011 *)
%o (PARI) Vec(1/(1-2*x-x^2-x^3-x^4)+O(x^40)) \\ _Charles R Greathouse IV_, Jun 20 2011
%o (Magma) I:=[1,2,5,13]; [n le 4 select I[n] else 2*Self(n-1)+Self(n-2)+Self(n-3) +Self(n-4): n in [1..40]]; // _Vincenzo Librandi_, Feb 05 2012
%o (Sage)
%o def A103142_list(prec):
%o P.<x> = PowerSeriesRing(ZZ, prec)
%o return P( 1/(1-2*x-x^2-x^3-x^4) ).list()
%o A103142_list(40) # _G. C. Greubel_, Feb 12 2020
%o (GAP) a:=[1,2,5,13];; for n in [5..40] do a[n]:=2*a[n-1]+a[n-2]+a[n-3]+a[n-4]; od; a; # _G. C. Greubel_, Feb 12 2020
%Y Cf. A000129, A077939.
%Y Row sums of A103141 and of A202193.
%K easy,nonn
%O 0,2
%A _Paul Barry_, Jan 24 2005
%E Deleted certain dangerous or potentially dangerous links. - _N. J. A. Sloane_, Jan 30 2021