|
%I #16 Sep 08 2022 08:45:45
%S 1,69,1023,6761,28673,92189,245463,570193,1194577,2308405,4180287,
%T 7177017,11785073,18634253,28523447,42448545,61632481,87557413,
%U 121999039,167063049,225223713,299364605,392821463,509427185,653558961
%N G.f.: (1+62*x+561*x^2+1014*x^3+449*x^4+48*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="/A160788/b160788.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) = 89*n^6/30 +151*n^5/15 +56*n^4/3 +19*n^3+371*n^2/30 +74*n/15 +1. - _R. J. Mathar_, Sep 11 2011
%t CoefficientList[Series[(1 + 62*x + 561*x^2 + 1014*x^3 + 449*x^4 + 48*x^5 + x^6)/(1 - x)^7, {x, 0, 50}], x] (* _G. C. Greubel_, Apr 26 2018 *)
%t LinearRecurrence[{7,-21,35,-35,21,-7,1},{1,69,1023,6761,28673,92189,245463},30] (* _Harvey P. Dale_, Aug 03 2021 *)
%o (Magma) [89*n^6/30 +151*n^5/15 +56*n^4/3 +19*n^3+371*n^2/30 +74*n/15 +1: n in [0..30]]; // _Vincenzo Librandi_, Sep 18 2011
%o (PARI) x='x+O('x^30); Vec((1+62*x+561*x^2+1014*x^3+449*x^4+48*x^5 +x^6)/(1-x)^7) \\ _G. C. Greubel_, Apr 26 2018
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Nov 18 2009
|
