A079658 Fibonacci numbers using only the straight digits 1, 4 and 7.
1, 1, 144, 17711
Offset: 1
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 *)
Comments