OFFSET
0,2
COMMENTS
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