|
%I #31 Jul 18 2021 17:59:43
%S 1,13,144,1597,10946,121393,1346269,14930352,102334155,1134903170,
%T 12586269025,139583862445,1548008755920,10610209857723,
%U 117669030460994,1304969544928657,14472334024676221,160500643816367088,1100087778366101931,12200160415121876738
%N Smallest n-digit Fibonacci number.
%H Alois P. Heinz, <a href="/A072351/b072351.txt">Table of n, a(n) for n = 1..1000</a>
%F A072351(n) = floor(1/2 + phi^ceiling((n*log(10) + (1/2)*log(5))/log(phi))/sqrt(5)). - _Franklin T. Adams-Watters_, May 27 2011
%e a(3)=144, as 144 is smallest 3-digit Fibonacci number.
%p F:= proc(n) option remember; local f;
%p f:= `if`(n=1, [1$2], F(n-1));
%p do f:= [f[2], f[1]+f[2]];
%p if length(f[1])<length(f[2]) then break fi
%p od; f
%p end:
%p a:= n-> `if`(n=1, 1, F(n-1)[2]):
%p seq(a(n), n=1..25); # _Alois P. Heinz_, Mar 10 2016
%t a[n_] := Fibonacci[Ceiling[k /. FindRoot[Log[10, Fibonacci[k]] == n-1, {k, 1}]]]; Array[a, 20] (* _Jean-François Alcover_, Jan 18 2017 *)
%o (PARI) A072351(n,phi=(sqrt(5)+1)/2)=round(phi^ceil((n*log(10)+log(5)/2)/log(phi))/sqrt(5)) \\ _Franklin T. Adams-Watters_, May 27 2011
%o (Python)
%o def A072351_list(n):
%o list = [1]
%o x, y = 1, 1
%o while len(list) < n:
%o if len(str(x)) < len(str(y)):
%o list.append(y)
%o x, y = y, x + y
%o return list
%o print(A072351_list(20)) # _M. Eren Kesim_, Jun 28 2021
%Y Cf. A072352, A105710, A105712, A105713, A105714, A105715, A105716, A105717, A105718, A105719.
%K base,nonn
%O 1,2
%A _Shyam Sunder Gupta_, Jul 17 2002
|
