OFFSET
1,1
MATHEMATICA
Select[Fibonacci[Range[200]], IntegerDigits[#][[1]]==4&] (* Harvey P. Dale, Sep 17 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Corrected and extended by Harvey P. Dale, Sep 17 2020
STATUS
approved