A203164
(n-1)-st elementary symmetric function of the first n terms of the periodic sequence (4,1,2,3,4,1,2,3,...).
Original entry on oeis.org
1, 5, 14, 50, 224, 320, 736, 2400, 10176, 12480, 27264, 86400, 359424, 414720, 884736, 2764800, 11390976, 12718080, 26763264, 82944000, 339738624, 371589120, 775028736, 2388787200, 9746251776, 10510663680, 21785739264, 66886041600
Offset: 1
-
f[k_] := 1 + Mod[k + 2, 4];
t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 33}] (* A203164 *)
A203165
(n-1)-st elementary symmetric function of the first n terms of the periodic sequence (3,4,1,2,3,4,1,2,...).
Original entry on oeis.org
1, 7, 19, 50, 174, 768, 1056, 2400, 7776, 32832, 39744, 86400, 273024, 1133568, 1299456, 2764800, 8626176, 35500032, 39481344, 82944000, 256794624, 1051066368, 1146617856, 2388787200, 7357464576, 30003167232, 32296402944, 66886041600
Offset: 1
-
f[k_] := 1 + Mod[k + 1, 4];
t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 33}] (* A203165 *)
A203166
(n-1)-st elementary symmetric function of the first n terms of (1,2,3,4,5,1,2,3,4,5,...)=A010884.
Original entry on oeis.org
1, 3, 11, 50, 274, 394, 908, 2964, 12576, 65760, 80160, 174720, 552960, 2298240, 11836800, 13564800, 28857600, 90028800, 370483200, 1893888000, 2101248000, 4409856000, 13644288000, 55821312000, 284083200000, 308966400000
Offset: 1
-
f[k_] := 1 + Mod[k + 4, 5];
t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 33}] (* A203166 *)
Showing 1-3 of 3 results.