A374863 Obverse convolution A000201**A001950; see Comments.

0, 2, 45, 840, 23040, 823680, 29729700, 1319205888, 60949324800, 3307060721664, 207247208103936, 13289727219664896, 959973192342388224, 77222763982780416000, 6318019834620558704640, 568402264910884213555200, 52282854778694683852800000

Offset: 0

Author

Clark Kimberling, Aug 18 2024

Keywords

• nonn

Comments

See A374848 for the definition of obverse convolution and a guide to related sequences.

A000201 and A001950 are assumed to start with a(0) = 0.

Crossrefs

Cf. A000201, A001950, A001622, A374848.

Programs

Mathematica

r = GoldenRatio;
s[n_] := Floor[n*r]; t[n_] := Floor[n*r^2];
u[n_] := Product[s[k] + t[n - k], {k, 0, n}]
Table[u[n], {n, 0, 20}]