A374857 Obverse convolution (n)**(Fibonacci(n)); see Comments.
0, 1, 4, 36, 432, 8000, 216000, 8668296, 516311040, 46066268160, 6197083200000, 1266665976576000, 396044443339776000, 190620194701725734400, 142017680690039344619520, 164583068009095149120000000, 297947499870194922871259136000
Offset: 0
Keywords
Programs
-
Mathematica
s[n_] := n; t[n_] := Fibonacci[n]; u[n_] := Product[s[k] + t[n - k], {k, 0, n}] Table[u[n], {n, 0, 20}]
Comments