%I #13 Dec 13 2018 19:06:36
%S 1,1,2,3,5,8,13,21,55,89,233,377,610,987,1597,6765,17711,28657,75025,
%T 121393,317811,2178309,5702887,39088169,1836311903,2971215073,
%U 12586269025,32951280099,53316291173,86267571272,591286729879
%N Fibonacci numbers whose decimal expansion does not contain any digit 4.
%C Probability that Fib(n) contains no 4's goes to zero as n grows to infinity. I suppose that the maximum number is Fib(114) having 24 digits, none of them being a "4".
%H Robert Israel, <a href="/A177246/b177246.txt">Table of n, a(n) for n = 1..41</a> (conjectured to be complete)
%e a(9)=55 is the 9th Fibonacci having no digit 4's.
%p remove(t -> has(convert(t,base,10),4), map(combinat:-fibonacci, [$1..1000])); # _Robert Israel_, Dec 13 2018
%t Select[Fibonacci@Range@114, !MemberQ[IntegerDigits[#], 4] &] (* _Amiram Eldar_, Dec 13 2018 *)
%Y Cf. A000045, A177194, A177195, A177231, A177245, A176253.
%K nonn,base
%O 1,3
%A _Carmine Suriano_, May 06 2010