|
%I #6 Mar 31 2012 10:22:06
%S 322615043836854783580186309282650000354271239929,
%T 1476475227036382503281437027911536541406625644706194668152438732346449273,
%U 22334640661774067356412331900038009953045351020683823507202893507476314037053
%N Members of A050937 (nonprime Fibonacci numbers with prime index) with 5 or more distinct prime factors.
%C Conjecture: all numbers in this sequence are product of 5 or more sum of two squares
%F A050937 INTERSECT { A051270 UNION A074969 UNION ... } = A050937 MINUS {A135955 UNION A135954 UNION A135953}. - _R. J. Mathar_, Jun 09 2008
%t 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
%Y Cf. A000045, A001605, A050937, A075737, A090819, A134787, A134851, A134852, A135953, A135954, A135955, A135957.
%K nonn,bref
%O 1,1
%A _Artur Jasinski_, Dec 08 2007
%E Edited by _R. J. Mathar_, Jun 09 2008
| 