|
%I #31 Sep 08 2022 08:45:02
%S 2,18,52,110,198,322,488,702,970,1298,1692,2158,2702,3330,4048,4862,
%T 5778,6802,7940,9198,10582,12098,13752,15550,17498,19602,21868,24302,
%U 26910,29698,32672,35838,39202,42770,46548,50542,54758,59202,63880
%N Row 3 of A007754.
%H Seiichi Manyama, <a href="/A058794/b058794.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (4,-6,4,-1).
%F a(n) = n^3 + 6*n^2 + 9*n + 2.
%F G.f.: 2*(1 + 5*x - 4*x^2 + x^3)/(1-x)^4. - _Colin Barker_, Jan 10 2012
%F a(n) = (n + 2)*(n^2 + 4*n + 1) = 2*A154560(n). - _Bruno Berselli_, Jan 10 2015
%F E.g.f.: (2 + 16*x + 9*x^2 + x^3)*exp(x). - _G. C. Greubel_, Nov 29 2018
%p seq(sum(n^2-3, k=1..n), n=2..40); # _Zerinvary Lajos_, Jan 28 2008
%p seq ((n^3)-3*n, n=2..40); # _Zerinvary Lajos_, Jun 17 2008
%t LinearRecurrence[{4,-6,4,-1}, {2,18,52,110}, 40] (* _Vladimir Joseph Stephan Orlovsky_, Jan 15 2009 *)
%t Table[n^3 + 6 n^2 + 9 n + 2, {n, 0, 40}] (* _Bruno Berselli_, Jan 10 2015 *)
%o (Magma) [n^3+6*n^2+9*n+2: n in [0..40]]; // _Vincenzo Librandi_, Sep 22 2016
%o (PARI) vector(40, n, n--; n^3+6*n^2+9*n+2) \\ _G. C. Greubel_, Nov 29 2018
%o (Sage) [(n^3+6*n^2+9*n+2) for n in range(40)] # _G. C. Greubel_, Nov 29 2018
%o (GAP) List([0..40], n -> n^3+6*n^2+9*n+2); # _G. C. Greubel_, Nov 29 2018
%Y Cf. A007754, A154560.
%K nonn,easy
%O 0,1
%A _Christian G. Bower_, Dec 02 2000
|
