A203237 (n-1)-st elementary symmetric function of the first n terms of the upper Wythoff sequence, A001950.

1, 7, 59, 660, 9280, 148300, 2805900, 58575000, 1396365000, 37435710000, 1077585600000, 34227953760000, 1189257232800000, 43680491749440000, 1734759507499200000, 72342732649037760000, 3233001543062054400000

Offset

1,2

Links

Table of n, a(n) for n=1..17.

Mathematica

f[k_] := k + Floor[GoldenRatio*k]
t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 18}]     (* A203237 *)
t[16]  (* A001950 *)

Crossrefs

Cf. A203236.

Sequence in context: A135150 A077409 A192458 * A099347 A331709 A203174

Adjacent sequences: A203234 A203235 A203236 * A203238 A203239 A203240

Keyword

nonn

Author

Clark Kimberling, Dec 30 2011

Status

approved