login
A374863
Obverse convolution A000201**A001950; see Comments.
1
0, 2, 45, 840, 23040, 823680, 29729700, 1319205888, 60949324800, 3307060721664, 207247208103936, 13289727219664896, 959973192342388224, 77222763982780416000, 6318019834620558704640, 568402264910884213555200, 52282854778694683852800000
OFFSET
0,2
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.
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}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 18 2024
STATUS
approved