A259457 - OEIS

%I #13 Dec 07 2024 07:56:01

%S 3,66,1050,15300,220500,3245760,49533120,789264000,13172544000,

%T 230519520000,4229703878400,81315551116800,1636227552960000,

%U 34417989365760000,755835784704000000,17305616126582784000,412559358036553728000,10227311816872550400000,263309943217447526400000,7032029553158658048000000

%N From higher-order arithmetic progressions.

%H Karl Dienger, <a href="/A000217/a000217.pdf">Beiträge zur Lehre von den arithmetischen und geometrischen Reihen höherer Ordnung</a>, Jahres-Bericht Ludwig-Wilhelm-Gymnasium Rastatt, Rastatt, 1910. [Annotated scanned copy]

%F Conjecture: 3*n*a(n) +(-3*n^2-19*n-44)*a(n-1) -2*(n+2)^2*a(n-2)=0. - _R. J. Mathar_, Jul 15 2015

%F From _Georg Fischer_, Dec 06 2024: (Start)

%F a(n) = (n+3)!*(n+2)*(n+1)*(n+3)*(3*n+8)/96.

%F D-finite with recurrence: -n*(3*n+5)*a(n) + (n+3)^2*(3*n+8)*a(n-1) = 0. (End)

%p rX := proc(n, a, d)

%p         n*a+(n-1)*n/2*d;

%p end proc:

%p A259457 := proc(n)

%p         mul(rX(i, a, d), i=1..n+2) ;

%p         coeftayl(%, d=0, 2) ;

%p         coeftayl(%, a=0, n) ;

%p end proc:

%p seq(A259457(n), n=1..25) ; # _R. J. Mathar_, Jul 15 2015

%t rX[n_, a_, d_] := n*a + (n-1)*n/2*d;

%t A259457[n_] :=

%t    Product[rX[i, a, d], {i, 1, n+3}]//

%t    SeriesCoefficient[#, {d, 0, 2}]&//

%t    SeriesCoefficient[#, {a, 0, n+1}]&;

%t Table[A259457[n], {n, 0, 17}] (* _Jean-François Alcover_, Apr 27 2023, after _R. J. Mathar_ *)

%Y Cf. A000914, A259248.

%K nonn

%O 0,1

%A _N. J. A. Sloane_, Jun 30 2015