A374858 Obverse convolution (n)**(Lucas(n)); see Comments.
2, 3, 24, 240, 4200, 110880, 4572288, 288812160, 28141344000, 4231979136000, 986721354178560, 357978242151129600, 202881784891968000000, 180248848162914585600000, 251851399750851061045248000, 554999919804958202694991872000, 1933790758313726593648946202624000
Offset: 0
Keywords
Programs
-
Mathematica
s[n_] := n; t[n_] := LucasL[n]; u[n_] := Product[s[k] + t[n - k], {k, 0, n}] Table[u[n], {n, 0, 20}]
Comments