OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..596
MAPLE
res:= NULL:
a:= 0: b:= 1:
for i from 1 to 100 do
temp:= a+b;
a:= b;
b:= temp;
if floor(b/10^ilog10(b)) = 3 then
res:= res, b;
fi;
od:
res; # Robert Israel, Dec 25 2016
MATHEMATICA
Select[Fibonacci[Range[200]], First[IntegerDigits[#]]==3&] (* Harvey P. Dale, Mar 05 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(11) corrected by Robert Israel, Dec 25 2016
STATUS
approved