login
Fibonacci numbers with distinct digits.
0

%I #13 Dec 11 2023 18:28:09

%S 0,1,2,3,5,8,13,21,34,89,610,987,1597,2584,10946,28657,2178309

%N Fibonacci numbers with distinct digits.

%C If we add the condition of increasing digits, there are only 9 terms.

%t DeleteDuplicates[Select[Fibonacci[Range[0,49]], DeleteDuplicates[d=IntegerDigits[#]]==d &]] (* _Amiram Eldar_, Nov 15 2018 *)

%t Select[Fibonacci[Range[0,40]],Max[DigitCount[#]]==1&]//Union (* _Harvey P. Dale_, Dec 11 2023 *)

%Y Intersection of A000045 and A010784.

%K nonn,base,fini,full

%O 1,3

%A _Enrique Navarrete_, Nov 15 2018