A203009 (n-1)-st elementary symmetric function of first n Lucas numbers, starting with L(0)=2.
1, 3, 11, 50, 374, 4282, 78924, 2322060, 110101476, 8413051008, 1038251025216, 207035781419520, 66749863269991104, 34803836775900988992, 29353783726459293724224, 40050488883338399323186560, 88407698594458813846355350656
Offset: 1
Keywords
Crossrefs
Cf. A203010.
Programs
-
Mathematica
f[k_] := LucasL[k - 1]; t[n_] := Table[f[k], {k, 1, n}] a[n_] := SymmetricPolynomial[n - 1, t[n]] Table[a[n], {n, 1, 16}] (* A203009 *)
Comments