OFFSET
1,3
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
Haocong Song and Wen Wu, Hankel determinants of a Sturmian sequence, arXiv:2007.09940 [math.CO], 2020. See p. 4.
Index entries for linear recurrences with constant coefficients, signature (0,2,0,1).
FORMULA
a(2n) = a(2n-1) + a(2n-2); a(2n+1) = a(2n) + a(2n-2)
O.g.f.: x*(1+x-x^2)*(x^2+1)/(1-2*x^2-x^4). - R. J. Mathar, Aug 08 2008
MATHEMATICA
Rest[CoefficientList[Series[x (1 - x^2 + x) (x^2 + 1)/(1 - 2 x^2 - x^4), {x, 0, 50}], x]] (* G. C. Greubel, Nov 28 2017 *)
LinearRecurrence[{0, 2, 0, 1}, {1, 1, 2, 3, 4}, 50] (* Harvey P. Dale, Dec 15 2022 *)
PROG
(Haskell)
import Data.List (transpose)
a082766 n = a082766_list !! (n-1)
a082766_list = concat $ transpose [a052542_list, tail a001333_list]
-- Reinhard Zumkeller, Feb 24 2015
(PARI) x='x+O('x^30); Vec(x*(1+x-x^2)*(x^2+1)/(1-2*x^2-x^4)) \\ G. C. Greubel, Nov 28 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary W. Adamson, May 24 2003
EXTENSIONS
Edited by Don Reble, Nov 04 2005
STATUS
approved