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

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

Offset

0,3

Comments

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

Links

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

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 *)

Crossrefs

Cf. A366149, A365673.

Sequence in context: A272529 A198282 A177147 * A251669 A158654 A275995

Adjacent sequences: A366147 A366148 A366149 * A366151 A366152 A366153

Keyword

nonn

Author

Peter Luschny, Oct 01 2023

Status

approved