OFFSET
1,2
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,0,0,48,0,0,0,-576).
FORMULA
G.f.: x*(36*x^6 + 28*x^5 + 26*x^4 + 50*x^3 + 11*x^2 + 3*x + 1) / (24*x^4 - 1)^2. - Colin Barker, Aug 15 2014
EXAMPLE
Let esf abbreviate "elementary symmetric function". Then
0th esf of {1}: 1;
1st esf of {1,2}: 1+2 = 3;
2nd esf of {1,2,3} is 1*2 + 1*3 + 2*3 = 11.
MATHEMATICA
f[k_] := 1 + Mod[k + 3, 4]; t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 33}] (* A203163 *)
LinearRecurrence[{0, 0, 0, 48, 0, 0, 0, -576}, {1, 3, 11, 50, 74, 172, 564, 2400}, 50] (* Harvey P. Dale, Aug 18 2020 *)
PROG
(PARI) Vec(x*(36*x^6+28*x^5+26*x^4+50*x^3+11*x^2+3*x+1)/(24*x^4-1)^2 + O(x^100)) \\ Colin Barker, Aug 15 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Dec 30 2011
STATUS
approved