OFFSET
1,1
COMMENTS
Conjecture: all numbers in this sequence are product of 5 or more sum of two squares
FORMULA
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
CROSSREFS
KEYWORD
nonn,bref
AUTHOR
Artur Jasinski, Dec 08 2007
EXTENSIONS
Edited by R. J. Mathar, Jun 09 2008
STATUS
approved