|
|
A233524
|
|
Numbers n such that the binary expansion of Fibonacci(n) is a palindrome (leading zero digits are not permitted).
|
|
0
|
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
The next term of the sequence, if it exists, is greater than 10^5.
|
|
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
|
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|