|
Search: id:A104221
|
|
|
| A104221 |
|
a(n) = Fibonacci[n]-Mod[Fibonacci[n],2] |
|
+0
1
|
|
| 0, 0, 0, 2, 2, 4, 8, 12, 20, 34, 54, 88, 144, 232, 376, 610, 986, 1596, 2584, 4180, 6764, 10946, 17710, 28656, 46368, 75024, 121392, 196418, 317810, 514228, 832040, 1346268, 2178308, 3524578, 5702886, 9227464, 14930352, 24157816, 39088168
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
All-even Fibonacci sequence.
|
|
MATHEMATICA
|
fib[n_Integer?Positive] := fib[n] = fib[n - 1] + fib[n - 2] fib[0] = 0; fib[1] = 1 a = Table[fib[n] - Mod[fib[n], 2], {n, 0, 100}]
|
|
CROSSREFS
|
Adjacent sequences: A104218 A104219 A104220 this_sequence A104222 A104223 A104224
Sequence in context: A056381 A019463 A086700 this_sequence A078044 A052907 A048114
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 14 2005
|
|
|
Search completed in 0.002 seconds
|
