|
%I #20 Dec 30 2022 18:17:50
%S 1,154,2287,14695,60907,192493,505912,1163401,2417905,4642048,8361145,
%T 14290255,23375275,36838075,56225674,83463457,120912433,171430534,
%U 238437955,325986535,438833179,582517321,763442428,988961545,1267466881
%N Expansion of (1+147*x+1230*x^2+1885*x^3+714*x^4+63*x^5+x^6)/(1-x)^7.
%C Source: the De Loera et al. article and the Haws website listed in A160747.
%H Vincenzo Librandi, <a href="/A160840/b160840.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (7,-21,35,-35,21,-7,1).
%F a(n) = 449*n^6/80 +1803*n^5/80 +713*n^4/16 +745*n^3/16 +1053*n^2/40 +37*n/5 +1. - _R. J. Mathar_, Sep 11 2011
%p seq(coeff(series((1+147*x+1230*x^2+1885*x^3+714*x^4+63*x^5+x^6)/(1-x)^7, x,n+1),x,n),n=0..25); # _Muniru A Asiru_, Apr 29 2018
%t LinearRecurrence[{7,-21,35,-35,21,-7,1}, {1, 154, 2287, 14695, 60907, 192493, 505912}, 30] (* _G. C. Greubel_, Apr 28 2018 *)
%t CoefficientList[Series[(1+147x+1230x^2+1885x^3+714x^4+63x^5+x^6)/(1-x)^7,{x,0,30}],x] (* _Harvey P. Dale_, Dec 30 2022 *)
%o (Magma) [449*n^6/80 +1803*n^5/80 +713*n^4/16 +745*n^3/16 +1053*n^2/40 +37*n/5 +1: n in [0..30]]; // _Vincenzo Librandi_, Sep 17 2011
%o (PARI) x='x+O('x^30); Vec((1+147*x+1230*x^2+1885*x^3+714*x^4 +63*x^5 +x^6)/(1-x)^7) \\ _G. C. Greubel_, Apr 28 2018
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Nov 18 2009
|
