A203149 (n-1)-st elementary symmetric function of {2,8,26,80,242,...,-1+3^n}.

1, 10, 276, 22496, 5477312, 3995536896, 8740106791936, 57347917373194240, 1128805788065906196480, 66655379003341682687344640, 11807831483305724934163060490240, 6275171273199511284527725270165094400, 10004652813703079731923092657993740504268800

Offset: 1

Author

Clark Kimberling, Dec 29 2011

Keywords

• nonn

Crossrefs

Cf. A203148.

Programs

Mathematica

f[k_] := 3^k - 1; t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 16}] (* A203149 *)