OFFSET
1,2
FORMULA
Conjecture: a(n) = 6*a(n-4)-9*a(n-8) with G.f. x*(1+2*x+3*x^2+10*x^3+7*x^4+4*x^5+x^6) / ( (-1+3*x^4)^2 ). - R. J. Mathar, Oct 15 2013
MATHEMATICA
r = {1, 1, 1, 3, 1, 1, 1, 3};
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, 47}] (* A203235 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 30 2011
STATUS
approved