A135956 Members of A050937 (nonprime Fibonacci numbers with prime index) with 5 or more distinct prime factors.
322615043836854783580186309282650000354271239929, 1476475227036382503281437027911536541406625644706194668152438732346449273, 22334640661774067356412331900038009953045351020683823507202893507476314037053
Offset: 1
Crossrefs
Programs
-
Mathematica
k = {}; Do[If[ !PrimeQ[Fibonacci[Prime[n]]], c = Length[FactorInteger[Fibonacci[Prime[n]]]]; Print[n]; If[c > 4, Print[Fibonacci[Prime[n]]]; AppendTo[k, Fibonacci[Prime[n]]]]], {n, 1, 100}]; k
Formula
Extensions
Edited by R. J. Mathar, Jun 09 2008
Comments