OFFSET
1,1
COMMENTS
Conjecture: All numbers in this sequence are products of four sums of two squares.
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 08 2007
STATUS
approved