A374890 Obverse convolution (n^2)**A000045; see Comments.
0, 1, 8, 180, 7200, 510000, 58810752, 10721443824, 3000030566400, 1271536241976000, 808142435100000000, 766737236353300692480, 1083811655995484233973760, 2283119816756708041781760000, 7179069918231931831907004518400, 33781506659124051515150232000000000
Offset: 0
Keywords
Programs
-
Mathematica
s[n_] := n^2; t[n_] := Fibonacci[n]; u[n_] := Product[s[k] + t[n - k], {k, 0, n}] Table[u[n], {n, 0, 20}]
Comments