%I #12 Jun 13 2015 00:52:45
%S 0,1,9,307,2610,88741,754299,25646167,217992420,7411742281,
%T 62999809389,2141993519227,18206944913430,619036127056621,
%U 5261807079981279,178901440719363487,1520662246114589640,51702516367896047761
%N (17^n - 1)/(2^(5 - (n % 2))).
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (0,290,0,-289).
%F From _Colin Barker_, Apr 30 2014: (Start)
%F a(n) = (-1)*((-3+(-1)^n)*(-1+17^n))/64.
%F a(n) = 290*a(n-2)-289*a(n-4).
%F G.f.: x*(17*x^2+9*x+1) / ((x-1)*(x+1)*(17*x-1)*(17*x+1)). (End)
%p A152437:=n->(17^n-1)/(2^(5-(n mod 2))); seq(A152437(n), n=0..20); # _Wesley Ivan Hurt_, Apr 30 2014
%t a[n_] :=(17^n - 1)/(2^(5 - Mod[n, 2])); Table[a[n], {n, 0, 30}]
%t LinearRecurrence[{0,290,0,-289},{0,1,9,307},30] (* _Harvey P. Dale_, May 21 2015 *)
%o (PARI) concat(0, Vec((17*x^3+9*x^2+x)/(289*x^4-290*x^2+1) + O(x^100))) \\ _Colin Barker_, Apr 30 2014
%K nonn,easy
%O 0,3
%A _Roger L. Bagula_, Dec 04 2008
|