A203010 (n-1)-st elementary symmetric function of first n Lucas numbers, starting with L(1)=1.
1, 4, 19, 145, 1679, 31146, 919866, 43716030, 3345087696, 413168662224, 82432477483344, 26585428576089600, 13864587294260493504, 11694921751248976025856, 15957837208927564640940096, 35227081534568618432596098240
Offset: 1
Keywords
Crossrefs
Cf. A203009.
Programs
-
Mathematica
f[k_] := LucasL[k]; t[n_] := Table[f[k], {k, 1, n}] a[n_] := SymmetricPolynomial[n - 1, t[n]] Table[a[n], {n, 1, 16}] (* A203010 *)
Comments