login
A233524
Numbers n such that the binary expansion of Fibonacci(n) is a palindrome (leading zero digits are not permitted).
0
0, 1, 2, 4, 5, 8
OFFSET
1,3
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
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 *)
CROSSREFS
Cf. A000045 (Fibonacci), A004685 (binary Fibonacci), A007088 (binary nonnegative integers).
Cf. A045504.
Sequence in context: A119909 A301521 A097698 * A324331 A101410 A110991
KEYWORD
nonn,base,more
AUTHOR
L. Edson Jeffery, Dec 11 2013
STATUS
approved