|
%I #34 Dec 22 2023 10:37:07
%S 0,0,1,5,22,90,363,1455,5824,23300,93205,372825,1491306,5965230,
%T 23860927,95443715,381774868,1527099480,6108397929,24433591725,
%U 97734366910,390937467650,1563749870611,6254999482455,25019997929832
%N Convolution of 4^n and floor(n/2).
%C a(n+1) gives partial sums of A033114 and second partial sums of A015521.
%C Partial sums of 1/3*floor(4^n/5). - _Mircea Merca_, Dec 26 2010
%H Vincenzo Librandi, <a href="/A097138/b097138.txt">Table of n, a(n) for n = 0..200</a>
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (5,-3,-5,4)
%F G.f.: x^2/((1-x)*(1-4*x)*(1-x^2)).
%F a(n) = Sum_{k=0..n} floor((n-k)/2)4^k = Sum_{k=0..n} floor(k/2)*4^(n-k).
%F a(n) = 5*a(n-1) - 3*a(n-2) - 5*a(n-3) + 4*a(n-4).
%F From _Mircea Merca_, Dec 26 2010: (Start)
%F 3*a(n) = round((16*4^n-30*n-25)/60) = floor((8*4^n-15*n-8)/30) = ceiling((8*4^n-15*n-17)/30) = round((8*4^n-15*n-8)/30).
%F a(n) = a(n-2)+(4^(n-1)-1)/3, n>1. (End)
%F a(n) = (4^(n+2)-30*n+9*(-1)^n-25)/180. - _Bruno Berselli_, Dec 27 2010
%F a(n) = (floor(4^(n+1)/15) - floor((n+1)/2))/3. - _Seiichi Manyama_, Dec 22 2023
%e a(3) = 1/3*floor(4^0/5)+1/3*floor(4^1/5)+1/3*floor(4^2/5) +1/3*floor(4^3/5) = 0 + 0 + 1 + 4 = 5.
%p A097138 := proc(n) (4^(n+2)-30*n+9*(-1)^n-25)/180 ; end proc: # _R. J. Mathar_, Jan 08 2011
%t LinearRecurrence[{5,-3,-5,4},{0,0,1,5},30] (* _Harvey P. Dale_, Sep 17 2017 *)
%o (Magma) [(4^(n+2)-30*n+9*(-1)^n-25)/180: n in [0..30]]; // _Vincenzo Librandi_, May 31 2011
%Y Column k=4 of A368296.
%Y Cf. A015521, A033114.
%K easy,nonn
%O 0,4
%A _Paul Barry_, Jul 29 2004
| 