login
Obverse convolution (n)**(Lucas(n)); see Comments.
1

%I #4 Aug 28 2024 10:56:15

%S 2,3,24,240,4200,110880,4572288,288812160,28141344000,4231979136000,

%T 986721354178560,357978242151129600,202881784891968000000,

%U 180248848162914585600000,251851399750851061045248000,554999919804958202694991872000,1933790758313726593648946202624000

%N Obverse convolution (n)**(Lucas(n)); see Comments.

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

%t s[n_] := 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. A000027, A000032, A374848.

%K nonn

%O 0,1

%A _Clark Kimberling_, Aug 18 2024