OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..2559
FORMULA
Conjecture: a(n)=12*a(n-2)-36*a(n-4) with G.f. x*(1+5*x+9*x^2) / (-1+6*x^2)^2 . - R. J. Mathar, Oct 15 2013, verified by Robert Israel, May 04 2017
a(n) = (5/12)*n*6^(n/2) if n is even, (5*n-1)*6^((n+1)/2)/24 if n is odd. - Robert Israel, May 04 2017
MAPLE
f:= proc(n) if n::even then (5/12)*n*6^(n/2) else (5*n-1)*6^((n+1)/2)/24 fi
end proc:
map(f, [$1..100]); # Robert Israel, May 04 2017
MATHEMATICA
r = {3, 2, 3, 2, 3, 2};
s = Flatten[{r, r, r, r, r, r, r, r, r}];
t[n_] := Part[s, Range[n]]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 32}] (* A203233 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2011
STATUS
approved