A051122 a(n) = Fibonacci(n) AND Fibonacci(n+1).
0, 1, 0, 2, 1, 0, 8, 5, 0, 34, 17, 16, 128, 105, 96, 578, 537, 536, 16, 4165, 2624, 2, 17697, 9504, 9472, 65553, 55808, 55618, 317489, 299040, 295432, 2053, 2163968, 1377506, 263361, 8437888, 6328368, 5247017, 38010912, 33623682, 1576009, 165153832
Offset: 0
Examples
Fibonacci(6) = 8 = 1000_2, Fibonacci(7) = 13 = 1101_2, logical "AND" is 1000_2 = 8, so a(6)=8.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Table[BitAnd[Fibonacci[n + 1], Fibonacci[n]], {n, 0, 60}] (* Vladimir Joseph Stephan Orlovsky, Feb 21 2012 *) BitAnd@@@Partition[Fibonacci[Range[0,50]],2,1] (* Harvey P. Dale, Sep 30 2017 *) -
PARI
a(n) = bitand(fibonacci(n), fibonacci(n+1)); \\ Michel Marcus, Mar 06 2020
Formula
Extensions
More terms from Robert Lozyniak (11(AT)onna.com)