%I #10 Jun 01 2020 02:00:46
%S 377,377,6765,17711,75025,5702887,267914296,2971215073,701408733,
%T 7778742049,27777890035288,27777890035288,17167680177565,
%U 72723460248141,51680708854858323072,37889062373143906,679891637638612258
%N Smallest Fibonacci number that has 7 in the n-th position of the decimal representation
%C a(n) = A000045(A105707(n)).
%H Robert Israel, <a href="/A105717/b105717.txt">Table of n, a(n) for n = 0..995</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FibonacciNumber.html">Fibonacci Number</a>
%e n=3: A105700(3)=22, a(3)=A000045(22)=17711->1[7]711;
%e n=4: A105700(4)=25, a(4)=A000045(25)=75025->[7]5025.
%p N:= 100: # for a(0)..a(N)
%p F[0]:= 0: F[1]:= 1:
%p W:= Array(0..N):
%p count:= 0:
%p for m from 2 while count < N do
%p F[m]:= F[m-1]+F[m-2];
%p L:= convert(F[m],base,10);
%p M:= select(t -> L[t+1]=7 and W[t]=0, [$0..min(N,nops(L)-1)]);
%p count:= count + nops(M);
%p W[M]:= F[m]
%p od:
%p convert(W,list); # _Robert Israel_, Jun 01 2020
%Y Cf. A105711, A072351, A105712, A105713, A105714, A105715, A105716, A105718, A105719.
%K nonn,base
%O 0,1
%A _Reinhard Zumkeller_, Apr 18 2005
%E Definition corrected by _Robert Israel_, Jun 01 2020
|