A366150 a(n) = A366149(n, n).

1, 1, 8, 190, 9080, 725320, 87067520, 14652451360, 3291452374400, 951504315644800, 344097665398707200, 152191547632887731200, 80821740082953347993600, 50749489515964112842240000, 37193794460546391363092480000, 31464706192542487393274091520000

Offset: 0

Author

Peter Luschny, Oct 01 2023

Keywords

• nonn

Comments

This a weighted generalized Catalan sequence (A365673) with the heptagonal numbers as weights.

Crossrefs

Cf. A366149, A365673.

Programs

Maple

# Using function T from A366149.
a := n -> T(n, n): seq(a(n), n = 0..16);

Mathematica

A366149[n_,k_]:=A366149[n,k]=Which[k==0,1,k==n,A366149[n,k-1],True,PolygonalNumber[7,n-k+1]A366149[n,k-1]+A366149[n-1,k]];
Array[A366149[#,#]&,20,0] (* Paolo Xausa, Jan 01 2024 *)