login
Fibonacci numbers having initial digit '3'.
1

%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