A182602 Smallest Fibonacci number in a sequence of at least n consecutive composite Fibonacci numbers.
8, 21, 21, 2584, 2584, 832040, 832040, 832040, 832040, 832040, 832040, 832040, 832040, 4807526976, 4807526976, 4807526976, 4807526976, 4807526976, 4807526976, 4807526976, 4807526976, 4807526976, 4807526976, 4807526976
Offset: 1
Keywords
Examples
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.
Programs
-
Mathematica
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 *)