A374850 Obverse convolution A000032**A000032; see Comments.
4, 9, 50, 576, 12150, 529984, 46080000, 8227578436, 3001814235000, 2250930099585024, 3467943896484375000, 10990843331383915704576, 71660705425234329600000000, 961449528856034873335986864784, 26545636210087637565464331562500000
Offset: 0
Keywords
Programs
-
Mathematica
s[n_] := LucasL[n]; t[n_] := LucasL[n]; u[n_] := Product[s[k] + t[n - k], {k, 0, n}] Table[u[n], {n, 0, 20}]
Comments