|
|
A077966
|
|
Expansion of 1/(1+2*x^2).
|
|
8
|
|
|
1, 0, -2, 0, 4, 0, -8, 0, 16, 0, -32, 0, 64, 0, -128, 0, 256, 0, -512, 0, 1024, 0, -2048, 0, 4096, 0, -8192, 0, 16384, 0, -32768, 0, 65536, 0, -131072, 0, 262144, 0, -524288, 0, 1048576, 0, -2097152, 0, 4194304, 0, -8388608, 0, 16777216, 0, -33554432, 0, 67108864, 0, -134217728, 0, 268435456
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Normally sequences like this are not included, since with the alternating 0's deleted it is already in the database.
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
|
|
|
FORMULA
|
|
|
MAPLE
|
|
|
MATHEMATICA
|
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
(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
|
|
|
STATUS
|
approved
|
|
|
|