|
%I #17 Jul 31 2022 07:43:32
%S 1,1,2,3,5,8,13,21,34,55,89,144,233,377,17711
%N Fibonacci numbers with at most two distinct digits.
%C Next term, if it exists, is > Fibonacci(2289000). - _Lars Blomberg_, May 10 2011
%t Fibonacci[ Select[Range[5*10^3], Length[Union[IntegerDigits[Fibonacci[ # ]], {}]] <= 2 &]]
%t Select[Fibonacci[Range[100]],Count[DigitCount[#],0]>7&] (* _Harvey P. Dale_, May 27 2018 *)
%Y Cf. A000045.
%K nonn,base
%O 1,3
%A _Joseph L. Pe_, Apr 03 2002
|
