A165326 a(0)=a(1)=1, a(n) = -a(n-1) for n > 1.
1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (-1).
Crossrefs
Cf. A033999.
Programs
-
Mathematica
PadRight[{1},120,{-1,1}] (* Harvey P. Dale, Dec 04 2012 *) Join[{1},LinearRecurrence[{-1},{1},83]] (* Ray Chandler, Aug 12 2015 *)
Comments