OFFSET
0,3
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,5,0,-2).
FORMULA
MATHEMATICA
a[0] = 0; a[1] = 1; a[n_] := a[n] = If[ OddQ[n], a[n - 1] + 2a[n - 2], 2a[n - 1] + a[n - 2]]; Table[a[n], {n, 0, 30}]
LinearRecurrence[{0, 5, 0, -2}, {0, 1, 2, 4}, 40] (* Harvey P. Dale, Jul 05 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 29 2002
EXTENSIONS
Corrected the g.f. and index in formula with A052913 R. J. Mathar, Apr 01 2009, May 02 2009
STATUS
approved