%I #29 Feb 19 2023 10:07:21
%S 3,8,17,34,67,132,261,518,1031,2056,4105,8202,16395,32780,65549,
%T 131086,262159,524304,1048593,2097170,4194323,8388628,16777237,
%U 33554454,67108887,134217752,268435481,536870938,1073741851,2147483676
%N Partial sums of A000051, starting at n=1.
%C The third number that is a sum of n positive n-th powers. - _Alois P. Heinz_, Aug 02 2020
%H Vincenzo Librandi, <a href="/A145071/b145071.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (4,-5,2).
%F a(1) = 3; a(n) = a(n-1) + 2^n + 1 for n > 1.
%F a(n) = 2^(n+1) + n - 2. - _Franklin T. Adams-Watters_, Jul 06 2009
%F G.f.: x*(3-4*x)/((1-x)^2*(1-2*x)). - _Colin Barker_, Jan 11 2012
%F a(n) = A127330(n,n) = A052944(n-1) + 2. - _Reinhard Zumkeller_, Nov 16 2013
%e a(2) = a(1) + 2^2 + 1 = 3 + 4 + 1 = 8; a(3) = a(2) + 2^3 + 1 = 8 + 8 + 1 = 17.
%t lst={};s=0;Do[s+=2^n+1;AppendTo[lst,s],{n,5!}];lst
%t Accumulate[2^Range[30]+1] (* _Harvey P. Dale_, Feb 19 2023 *)
%o (ARIBAS) a:=0; for n:=1 to 30 do a:=a+2**n+1; write(a,","); end;
%o (Haskell)
%o a145071 n = 2 ^ (n + 1) + n - 2
%o a145071_list = scanl1 (+) $ tail a000051_list
%o -- _Reinhard Zumkeller_, Nov 16 2013
%Y Cf. A000051 (2^n + 1), A000225 (2^n - 1), A000295 (Eulerian numbers).
%Y Column k = 1 of triangle A308737.
%Y Row n=3 of A336725.
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Sep 30 2008
%E Edited by _Klaus Brockhaus_, Oct 14 2008
|