A203230 - OEIS

%I #7 Oct 15 2013 14:38:45

%S 1,4,7,24,33,108,135,432,513,1620,1863,5832,6561,20412,22599,69984,

%T 76545,236196,255879,787320,846369,2598156,2775303,8503056,9034497,

%U 27634932,29229255,89282088,94065057,286978140,301327047,918330048

%N (n-1)-st elementary symmetric function of the first n terms of A010684.

%F Conjecture: a(n)=6*a(n-2)-9*a(n-4) with G.f. x*(1+4*x+x^2) / (-1+3*x^2)^2 . - _R. J. Mathar_, Oct 15 2013

%t r = {1, 3, 1, 3, 1, 3};

%t s = Flatten[{r, r, r, r, r, r, r, r, r}];

%t t[n_] := Part[s, Range[n]]

%t a[n_] := SymmetricPolynomial[n - 1, t[n]]

%t Table[a[n], {n, 1, 32}]     (* A203230 *)

%Y Cf. A010684, A203231, A120908 (bisection?).

%K nonn

%O 1,2

%A _Clark Kimberling_, Dec 30 2011