# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a048492
Showing 1-1 of 1
%I A048492 #33 Sep 08 2022 08:44:57
%S A048492 1,3,8,20,47,105,226,474,977,1991,4028,8112,16291,32661,65414,130934,
%T A048492 261989,524115,1048384,2096940,4194071,8388353,16776938,33554130,
%U A048492 67108537,134217375,268435076,536870504,1073741387,2147483181
%N A048492 a(n) = ( 8*(2^n) - n^2 - 3*n - 6 )/2.
%C A048492 Partial sums of A000325, starting at n=1. - _Klaus Brockhaus_, Oct 13 2008
%H A048492 Vincenzo Librandi, Table of n, a(n) for n = 0..1000
%H A048492 Index entries for linear recurrences with constant coefficients, signature (5,-9,7,-2).
%F A048492 a(0) = 1; a(n) = a(n-1) + 2^(n+1) - (n+1) for n > 0. - _Klaus Brockhaus_, Oct 13 2008
%F A048492 From _Colin Barker_, Oct 27 2014: (Start)
%F A048492 a(n) = (-2+2^(2+n)-1/2*(1+n)*(2+n)).
%F A048492 a(n) = 5*a(n-1)-9*a(n-2)+7*a(n-3)-2*a(n-4).
%F A048492 G.f.: (2*x^2-2*x+1) / ((x-1)^3*(2*x-1)).
%F A048492 (End)
%t A048492 lst={};s=0;Do[s+=2^n-n;AppendTo[lst, s], {n, 5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Sep 30 2008 *)
%t A048492 Table[(8*2^n-n^2-3n-6)/2,{n,0,30}]
%t A048492 LinearRecurrence[{5,-9,7,-2},{1,3,8,20},40] (* _Harvey P. Dale_, Aug 28 2019 *)
%o A048492 (ARIBAS) a:=0; for n:=1 to 30 do a:=a+2**n-n; write(a, ","); end; # _Klaus Brockhaus_, Oct 13 2008
%o A048492 (Magma) [( 8*(2^n) -n^2 -3*n -6 )/2: n in [0..30]]; // _Vincenzo Librandi_, Sep 23 2011
%o A048492 (PARI) Vec((2*x^2-2*x+1) / ((x-1)^3*(2*x-1)) + O(x^100)) \\ _Colin Barker_, Oct 27 2014
%Y A048492 a(n)=T(0, n)+T(1, n-1)+...+T(n, 0), array T given by A048483.
%Y A048492 Cf. A000325 (2^n - n), A145070. - _Klaus Brockhaus_, Oct 13 2008
%K A048492 nonn,easy
%O A048492 0,2
%A A048492 _Clark Kimberling_
%E A048492 Better description from _Frank Ellermann_, Mar 16 2002
%E A048492 Corrected by _T. D. Noe_, Nov 08 2006
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE