A366859 Antidiagonal sums of A366858.

0, 1, 3, 9, 28, 95, 353, 1435, 6340, 30205, 154059, 836181, 4805816, 29125915, 185474289, 1237159447, 8620179448, 62589847993, 472554134275, 3702702752513, 30057098645316, 252375781238167, 2188733915100465, 19579797280231795, 180453411239741852, 1711498126672376373

Offset: 0

Author

Stefano Spezia, Oct 25 2023

Keywords

• nonn

Crossrefs

Cf. A366858.

Programs

Mathematica

A366858[n_,k_]:=n! SeriesCoefficient[E^((k-1) x)(k Cosh[Sqrt[k]x]+Sqrt[k]Sinh[Sqrt[k]*x])/k,{x,0,n}]; a[n_]:=Sum[A366858[n-k+1,k],{k,n}]; Array[a,26,0] (* or *)
A366858[n_,k_]:=(Sqrt[k]((k+Sqrt[k]-1)^n+(k-Sqrt[k]-1)^n)+(k+Sqrt[k]-1)^n-(k-Sqrt[k]-1)^n)/(2Sqrt[k]); a[n_]:=Sum[A366858[n-k+1,k],{k,n}]; Simplify[Array[a,26,0]]