%I #37 Mar 05 2022 01:01:58
%S 1,4,15,50,157,480,1451,4366,13113,39356,118087,354282,1062869,
%T 3188632,9565923,28697798,86093425,258280308,774840959,2324522914,
%U 6973568781,20920706384,62762119195,188286357630,564859072937,1694577218860
%N a(n) = 2*3^n - n - 1.
%C Row sums of triangle A132307.
%H Vincenzo Librandi, <a href="/A132308/b132308.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (5,-7,3).
%F Binomial transform of A077552.
%F a(n) = 2*3^n - n - 1. - _Rolf Pleisch_, Sep 26 2010
%F G.f.: (1-x+2*x^2)/((1-3*x)*(1-x)^2). - _Bruno Berselli_, Mar 31 2011
%e a(2) = 15 = sum of row 2 terms of triangle A132307: (7 + 7 + 1).
%e a(2) = 15 = (1, 2, 1) dot (1, 3, 8) = (1 + 6 + 8); where A077552 = (1, 3, 8, 16, 32, 64, ...).
%p A132308:=n->2*3^n-n-1; seq(A132308(n), n=0..30); # _Wesley Ivan Hurt_, Mar 26 2014
%t s=1;lst={s};Do[s+=(n+=s++)+n;AppendTo[lst, s], {n, 0, 5!, 1}];lst (* _Vladimir Joseph Stephan Orlovsky_, Nov 15 2008 *)
%t Table[2*3^n-n-1,{n,0,30}] (* or *) LinearRecurrence[{5,-7,3},{1,4,15},30] (* _Harvey P. Dale_, Aug 06 2013 *)
%t CoefficientList[Series[(1 - x + 2 x^2)/((1 - 3 x) (1 - x)^2), {x, 0, 50}], x] (* _Vincenzo Librandi_, Mar 27 2014 *)
%Y Cf. A132307, A132309, A077552.
%K nonn
%O 0,2
%A _Gary W. Adamson_, Aug 18 2007
%E More terms from _Vladimir Joseph Stephan Orlovsky_, Nov 15 2008
%E Wrong formula 2*n^3-n-1 removed by _Rolf Pleisch_, Oct 19 2010
%E Simpler definition from _Wesley Ivan Hurt_, Mar 26 2014