[go: up one dir, main page]

login
A203236
(n-1)-st elementary symmetric function of the first n terms of the lower Wythoff sequence, A000201.
2
1, 4, 19, 126, 1080, 10296, 118440, 1478304, 21380544, 351668736, 6131649024, 119107100160, 2550758708736, 57156393305088, 1394626877005824, 35414634429554688, 969919192208203776, 28498206264514043904, 865692128959229214720
OFFSET
1,2
MATHEMATICA
f[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}] (* A203236 *)
t[16] (* A000201 *)
CROSSREFS
Cf. A203237.
Sequence in context: A361240 A099953 A009324 * A365961 A103468 A192944
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2011
STATUS
approved