%I #6 Aug 24 2024 13:37:40
%S 8,21,21,2584,2584,832040,832040,832040,832040,832040,832040,832040,
%T 832040,4807526976,4807526976,4807526976,4807526976,4807526976,
%U 4807526976,4807526976,4807526976,4807526976,4807526976,4807526976
%N Smallest Fibonacci number in a sequence of at least n consecutive composite Fibonacci numbers.
%F a(n) = A000045(A182601).
%F a(n) = min{ A000045(i): A000045(j) in A002808 for all j=i..i+n-1}.
%e a(2) = a(3) = 21 because (21, 34, 55) is a run of three consecutive Fibonacci composites, so 21 is in the sequence (21, 34) of at least 2 and in the sequence (21, 34, 55) of at least 3 consecutive composites in A000045.
%t Fibonacci[#]&/@(Flatten[Table[SequencePosition[Table[If[CompositeQ[Fibonacci[n]],1,0],{n,100}],PadRight[ {},k,1],1],{k,100}],1][[;;,1]]) (* _Harvey P. Dale_, Aug 24 2024 *)
%Y Cf. A005478, A090206.
%K nonn
%O 1,1
%A _R. J. Mathar_, Nov 22 2010