login
Obverse convolution A000045**A000032; see Comments.
1

%I #5 Sep 11 2024 13:35:46

%S 2,3,18,128,2100,61600,3732480,449880480,111021510600,55916730777600,

%T 57813913372723200,122742264040428032000,535797463154791219200000,

%U 4810427190599491339840000000,88856328051357049141036014736800,3377300175611111321142254817509376000

%N Obverse convolution A000045**A000032; see Comments.

%C See A374848 for the definition of obverse convolution and a guide to related sequences.

%t s[n_] := Fibonacci[n]; t[n_] := LucasL[n];

%t u[n_] := Product[s[k] + t[n - k], {k, 0, n}]

%t Table[u[n], {n, 0, 20}]

%Y Cf. A000032, A000045, A374848.

%K nonn

%O 0,1

%A _Clark Kimberling_, Aug 28 2024