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
Keywords
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]]