A135955 (Nonprime Fibonacci numbers with prime indices, A050937) which have exactly 4 prime factors.
83621143489848422977, 6161314747715278029583501626149, 289450641941273985495088042104137, 5193981023518027157495786850488117, 66233869353085486281758142155705206899077
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
k = {}; Do[If[ !PrimeQ[Fibonacci[Prime[n]]], c = Length[FactorInteger[Fibonacci[Prime[n]]]]; If[c == 4, AppendTo[k, Fibonacci[Prime[n]]]]], {n, 1, 50}]; k
Comments