|
%I #11 Mar 05 2018 12:28:20
%S 3,34,377,317811,3524578,39088169,32951280099,365435296162,
%T 308061521170129,3416454622906707,37889062373143906,
%U 31940434634990099905,354224848179261915075,3928413764606871165730
%N Fibonacci numbers having initial digit '3'.
%H Robert Israel, <a href="/A045727/b045727.txt">Table of n, a(n) for n = 1..596</a>
%p res:= NULL:
%p a:= 0: b:= 1:
%p for i from 1 to 100 do
%p temp:= a+b;
%p a:= b;
%p b:= temp;
%p if floor(b/10^ilog10(b)) = 3 then
%p res:= res, b;
%p fi;
%p od:
%p res; # _Robert Israel_, Dec 25 2016
%t Select[Fibonacci[Range[200]],First[IntegerDigits[#]]==3&] (* _Harvey P. Dale_, Mar 05 2018 *)
%K nonn,base
%O 1,1
%A _Jeff Burch_
%E a(11) corrected by _Robert Israel_, Dec 25 2016
|
