OFFSET
1,3
COMMENTS
No other term <= Fibonacci(10000). - Emeric Deutsch, Jul 23 2006
No other term <= Fibonacci(10^8). - D. S. McNeil, Dec 08 2009
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
MAPLE
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
MATHEMATICA
Select[Fibonacci[Range[50]], SubsetQ[{1, 4, 7}, IntegerDigits[#]]&] (* Harvey P. Dale, Jul 01 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Jan 23 2003
STATUS
approved