OFFSET
0,3
LINKS
Index entries for linear recurrences with constant coefficients, signature (3,6,-3,-1,0,1,-3,-6,3,1).
FORMULA
MAPLE
A000035 := proc(n)
n mod 2 ;
end proc:
A061347 := proc(n)
op((n mod 3)+1, [-2, 1, 1]) ;
end proc:
A001076 := proc(n)
option remember;
if n <=1 then
n;
else
4*procname(n-1)+procname(n-2) ;
end if;
end proc:
A039834 := proc(n)
(-1)^(n+1)*combinat[fibonacci](n) ;
end proc:
A087204 := proc(n)
op((n mod 6)+1, [2, 1, -1, -2, -1, 1]) ;
end proc:
A115605 := proc(n)
end proc: # R. J. Mathar, Dec 16 2011
MATHEMATICA
LinearRecurrence[{3, 6, -3, -1, 0, 1, -3, -6, 3, 1}, {0, 0, 2, 7, 31, 128, 549, 2315, 9826, 41594}, 30] (* Harvey P. Dale, Dec 16 2011 *)
PROG
(PARI) concat([0, 0], Vec((2+x-2*x^2-x^3+2*x^4)/((1-x)*(1+x)*(1+x+x^2)*(x^2-x+1)*(x^2+4*x-1)*(x^2-x-1))+O(x^99))) \\ Charles R Greathouse IV, Sep 27 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Mar 13 2006
STATUS
approved