OFFSET
1,2
FORMULA
a(n) = (1/2)*(3-1/3^(n-1))*3^(binomial(n,2)). - Emanuele Munarini, Sep 14 2017
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}] (* A203197 *)
Table[1/2 (3 - 1/3^(n-1)) 3^Binomial[n, 2], {n, 1, 20}] (* Emanuele Munarini, Sep 14 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2011
STATUS
approved