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,3

Links

Table of n, a(n) for n=0..25.

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

Crossrefs

Cf. A366858.

Sequence in context: A014323 A000752 A047027 * A148931 A243599 A148932

Adjacent sequences: A366856 A366857 A366858 * A366860 A366861 A366862

Keyword

nonn

Author

Stefano Spezia, Oct 25 2023

Status

approved