|
%I #21 Oct 18 2022 15:17:08
%S -27,-47,-67,-81,-83,-67,-27,43,149,297,493,743,1053,1429,1877,2403,
%T 3013,3713,4509,5407,6413,7533,8773,10139,11637,13273,15053,16983,
%U 19069,21317,23733,26323,29093,32049,35197,38543,42093,45853,49829,54027
%N a(n) = n^3 - 3*(n+3)^2.
%H Vincenzo Librandi, <a href="/A153260/b153260.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) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4); a(0)=-27, a(1)=-47, a(2)=-67, a(3)=-81. - _Harvey P. Dale_, Aug 24 2011
%F G.f.: (x*(x*(13*x - 41) + 61) - 27)/(x-1)^4. - _Harvey P. Dale_, Aug 24 2011
%F E.g.f.: (-27 - 20*x + x^3)*exp(x). - _G. C. Greubel_, Nov 10 2018
%t a[n_]:=n^3-3*(n+3)^2; a/@ Range[0, 50]
%t Table[n^3-3(n+3)^2,{n,0,50}] (* or *) LinearRecurrence[{4,-6,4,-1},{-27,-47,-67,-81},51] (* _Harvey P. Dale_, Aug 24 2011 *)
%o (Magma)[n^3-3*(n+3)^2: n in [0..40] ]; // _Vincenzo Librandi_, Aug 25 2011
%o (PARI) vector(40, n, n--; n^3-3*(n+3)^2) \\ _G. C. Greubel_, Nov 10 2018
%Y Cf. A045991, A081437, A069778, A153257, A153258, A153259.
%K sign,easy
%O 0,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 22 2008
%E Offset changed from 1 to 0 by _Vincenzo Librandi_, Aug 25 2011
|
