OFFSET
0,3
COMMENTS
Normally sequences like this are not included, since with the alternating 0's deleted it is already in the database.
Inverse binomial transform of A087455. - Philippe Deléham, Dec 02 2008
Pisano period lengths: 1, 1, 2, 1, 8, 2, 12, 1, 6, 8, 10, 2, 24, 12, 8, 1, 16, 6, 18, 8,... - R. J. Mathar, Aug 10 2012
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (0,-2).
FORMULA
a(n) = (1+(-1)^n)*(-2)^(n/2)/2. - R. J. Mathar, Apr 23 2009
a(n) = ((n+1) mod 2 )*(-2)^floor((n+1)/2). - Wesley Ivan Hurt, Apr 06 2014
E.g.f.: cos(sqrt(2)*x). - G. C. Greubel, Jun 24 2019
MAPLE
MATHEMATICA
CoefficientList[Series[1/(1 + 2*x^2), {x, 0, 60}], x] (* Vladimir Joseph Stephan Orlovsky, Jun 10 2011 *)
LinearRecurrence[{0, -2}, {1, 0}, 60] (* G. C. Greubel, Jun 24 2019 *)
PROG
(Sage) [lucas_number1(n, 0, 2) for n in range(1, 60)] # Zerinvary Lajos, Jul 16 2008
(PARI) Vec(1/(1+2*x^2)+O(x^60)) \\ Charles R Greathouse IV, Sep 24 2012
(PARI) for(n=0, 51, print1(imag(quadgen(-8)^(n+1)), ", ")) \\ Arkadiusz Wesolowski, Dec 26 2012
(Magma) I:=[1, 0]; [n le 2 select I[n] else -2*Self(n-2): n in [1..60]]; // G. C. Greubel, Jun 24 2019
(GAP) a:=[1, 0];; for n in [3..60] do a[n]:=-2*a[n-2]; od; a; # G. C. Greubel, Jun 24 2019
CROSSREFS
KEYWORD
sign,easy
AUTHOR
N. J. A. Sloane, Nov 17 2002
STATUS
approved