OFFSET
1,1
COMMENTS
Conjecture: All numbers in this sequence are products of three sums of two squares.
MATHEMATICA
k = {}; Do[If[ !PrimeQ[Fibonacci[Prime[n]]], c = Length[FactorInteger[Fibonacci[Prime[n]]]]; If[c == 3, AppendTo[k, Fibonacci[Prime[n]]]]], {n, 1, 50}]; k
PROG
(PARI) f(n) = forprime(x=2, n, p=fibonacci(x); if(!isprime(p) && omega(p) == 3, print1(p", "))) \\ Georg Fischer, Feb 15 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 08 2007
EXTENSIONS
a(6)-a(8) from Georg Fischer, Feb 15 2025
STATUS
approved