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

1, 1, 144, 17711

Offset: 1

Author

Shyam Sunder Gupta, Jan 23 2003

Keywords

• base
• nonn

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

Crossrefs

Cf. A028373.

Programs

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 *)