|
%I #20 Aug 04 2019 07:38:50
%S 0,128,43793863,5765980032,156401023862,1935682046080,14862118997493,
%T 82608952539008,363455410347052,1339359393716352,4294566953004035,
%U 12309095341172608,32166963447719778,77797775304659072,176169028327719217,376942917127098240,767724795122229848
%N 128*P_11(n), 128 times the Legendre polynomial of order 11 at n.
%H T. D. Noe, <a href="/A160865/b160865.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_12">Index entries for linear recurrences with constant coefficients</a>, signature (12,-66,220,-495,792,-924,792,-495,220,-66,12,-1).
%F From _Colin Barker_, Aug 04 2019: (Start)
%F G.f.: x*(128 + 43792327*x + 5240462124*x^2 + 90099630276*x^3 + 429789855348*x^4 + 709564273194*x^5 + 429789855348*x^6 + 90099630276*x^7 + 5240462124*x^8 + 43792327*x^9 + 128*x^10) / (1 - x)^12.
%F a(n) = 12*a(n-1) - 66*a(n-2) + 220*a(n-3) - 495*a(n-4) + 792*a(n-5) - 924*a(n-6) + 792*a(n-7) - 495*a(n-8) + 220*a(n-9) - 66*a(n-10) + 12*a(n-11) - a(n-12) for n>11.
%F (End)
%t Table[128*LegendreP[11, n], {n, 0, 100}] (* _T. D. Noe_, Mar 27 2012 *)
%o (PARI) a(n)=pollegendre(11,n)<<7 \\ _Charles R Greathouse IV_, Oct 26 2011
%o (PARI) concat(0, Vec(x*(128 + 43792327*x + 5240462124*x^2 + 90099630276*x^3 + 429789855348*x^4 + 709564273194*x^5 + 429789855348*x^6 + 90099630276*x^7 + 5240462124*x^8 + 43792327*x^9 + 128*x^10) / (1 - x)^12 + O(x^40))) \\ _Colin Barker_, Aug 04 2019
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_, Nov 19 2009
|
