|
%I #11 Sep 08 2022 08:45:45
%S 1,51,675,4319,18131,58121,154701,359605,754189,1459111,2645391,
%T 4546851,7473935,11828909,18122441,26991561,39219001,55753915,
%U 77733979,106508871,143665131,191052401,250811045,325401149,417632901,530698351
%N G.f.: (1+44*x+339*x^2+630*x^3+323*x^4+42*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="/A160835/b160835.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) = 1+n*(n+1)*(23*n^4+48*n^3+98*n^2+73*n+58)/12. - _R. J. Mathar_, Sep 17 2011
%t Table[1+n*(n+1)*(23*n^4+48*n^3+98*n^2+73*n+58)/12, {n,0,30}] (* or *) LinearRecurrence[{7,-21,35,-35,21,-7,1}, {1, 51, 675, 4319, 18131, 58121, 154701}, 30] (* _G. C. Greubel_, Apr 28 2018 *)
%o (Magma) [1+n*(n+1)*(23*n^4+48*n^3+98*n^2+73*n+58)/12: n in [0..30]]; // _Vincenzo Librandi_, Sep 18 2011
%o (PARI) for(n=0,30, print1(1+n*(n+1)*(23*n^4+48*n^3+98*n^2+73*n+58)/12, ", ")) \\ _G. C. Greubel_, Apr 28 2018
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Nov 18 2009
|
