A079658 - OEIS

%I #14 Nov 16 2017 15:52:23

%S 1,1,144,17711

%N Fibonacci numbers using only the straight digits 1, 4 and 7.

%C No other term <= Fibonacci(10000). - _Emeric Deutsch_, Jul 23 2006

%C No other term <= Fibonacci(10^8). - _D. S. McNeil_, Dec 08 2009

%C No other term <= Fibonacci(10^12). This sequence is almost certainly complete; in a random model the expected number of additional terms is less than 10^(-10000000000). - _Charles R Greathouse IV_, Sep 25 2012

%p with(combinat): a:=proc(n) if convert(convert(fibonacci(n),base,10),set) subset {1,4,7}= true then fibonacci(n) else fi end: seq(a(n),n=1..5000); # _Emeric Deutsch_, Jul 23 2006

%t Select[Fibonacci[Range[50]],SubsetQ[{1,4,7},IntegerDigits[#]]&] (* _Harvey P. Dale_, Jul 01 2017 *)

%Y Cf. A028373.

%K base,nonn

%O 1,3

%A _Shyam Sunder Gupta_, Jan 23 2003