A233524 Numbers n such that the binary expansion of Fibonacci(n) is a palindrome (leading zero digits are not permitted).

0, 1, 2, 4, 5, 8

Offset: 1

Author

L. Edson Jeffery, Dec 11 2013

Keywords

• nonn
• base
• more

Comments

The next term of the sequence, if it exists, is greater than 10^5.

No more terms < 10^7. - Lars Blomberg, Jun 19 2014

Links

• Huang Yuke and Wen Zhiying, The structure of palindromes in the Fibonacci sequence and some applications, arXiv: 1601.04391[math.DS], 2016.

Crossrefs

Cf. A000045 (Fibonacci), A004685 (binary Fibonacci), A007088 (binary nonnegative integers).

Cf. A045504.

Programs

Mathematica

t = {}; Do[b = IntegerDigits[Fibonacci[n], 2]; If[b == Reverse[b], AppendTo[t, n]], {n, 0, 1000}]; t (* T. D. Noe, Dec 14 2013 *)
Select[Range[0,10],PalindromeQ[IntegerDigits[Fibonacci[#],2]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 04 2019 *)