A134720 Even Padovan numbers.
0, 0, 0, 2, 2, 4, 12, 16, 28, 86, 114, 200, 616, 816, 1432, 4410, 5842, 10252, 31572, 41824, 73396, 226030, 299426, 525456, 1618192, 2143648, 3761840, 11584946, 15346786, 26931732, 82938844, 109870576, 192809420, 593775046, 786584466, 1380359512, 4250949112
Offset: 1
Links
- Index entries for linear recurrences with constant coefficients, signature (0,0,7,0,0,1,0,0,1).
Programs
-
Mathematica
Select[Join[{0,0,0},LinearRecurrence[{0,1,1},{1,1,1},100]],EvenQ] (* Harvey P. Dale, May 11 2011 *) LinearRecurrence[{0, 0, 7, 0, 0, 1, 0, 0, 1},{0, 0, 0, 2, 2, 4, 12, 16, 28},37] (* Ray Chandler, Mar 02 2024 *)
Formula
a(n) = 2 * A135619(n).
G.f.: -2*x^4*(x^4-x^3+2*x^2+x+1) / (x^9+x^6+7*x^3-1). - Colin Barker, Sep 17 2013
Extensions
More terms from Harvey P. Dale, May 11 2011