A045727 Fibonacci numbers having initial digit '3'.

3, 34, 377, 317811, 3524578, 39088169, 32951280099, 365435296162, 308061521170129, 3416454622906707, 37889062373143906, 31940434634990099905, 354224848179261915075, 3928413764606871165730

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

Sequence in context: A231593 A367509 A134491 * A105713 A376137 A367840

Adjacent sequences: A045724 A045725 A045726 * A045728 A045729 A045730

Keyword

nonn,base

Author

Jeff Burch

Extensions

a(11) corrected by Robert Israel, Dec 25 2016

Status

approved