%I #29 Sep 08 2022 08:45:09
%S 1,4,20,112,656,3904,23360,140032,839936,5039104,30233600,181399552,
%T 1088393216,6530351104,39182090240,235092508672,1410554986496,
%U 8463329787904,50779978465280,304679870267392,1828079220555776
%N a(n) = (6^n + 2^n)/2.
%C Binomial transform of A034478. 4th binomial transform of (1, 0, 4, 0, 16, 0, 64, ...).
%C Case k=4 of the family of recurrences a(n) = 2*k*a(n-1) - (k^2-4)*a(n-2), a(0)=1, a(1)=k.
%H Vincenzo Librandi, <a href="/A081335/b081335.txt">Table of n, a(n) for n = 0..200</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (8,-12).
%F a(n) = 8*a(n-1) - 12*a(n-2), a(0)=1, a(1)=4.
%F G.f.: (1-4*x)/((1-2*x)*(1-6*x)).
%F E.g.f.: exp(4*x)*cosh(2*x).
%F a(n) = Sum_{k=0..floor(n/2)} binomial(n,2*k) * 4^(n-k) = Sum_{k=0..n} binomial(n,k) * 4^(n-k/2) * (1+(-1)^k)/2. - _Paul Barry_, Nov 22 2003
%F a(n) = Sum_{k=0..n} 4^k*A098158(n,k). - _Philippe Deléham_, Dec 04 2006
%t LinearRecurrence[{8, -12}, {1, 4}, 30] (* _Harvey P. Dale_, May 03 2013 *)
%t CoefficientList[Series[(1-4x)/((1-2x)(1-6x)), {x,0,30}], x] (* _Vincenzo Librandi_, Aug 08 2013 *)
%o (Magma) [(6^n+2^n)/2: n in [0..30]]; // _Vincenzo Librandi_, Aug 08 2013
%o (PARI) a(n)=(6^n+2^n)/2 \\ _Charles R Greathouse IV_, Oct 07 2015
%o (Sage) [2^(n-1)*(3^n + 1) for n in (0..30)] # _G. C. Greubel_, Aug 02 2019
%o (GAP) List([0..30], n-> 2^(n-1)*(3^n + 1)); # _G. C. Greubel_, Aug 02 2019
%Y Cf. A081336.
%K nonn,easy
%O 0,2
%A _Paul Barry_, Mar 18 2003