OFFSET
1,2
LINKS
Charles R Greathouse IV and Amiram Eldar, Table of n, a(n) for n = 1..202 (terms 1..185 from Charles R Greathouse IV)
FORMULA
MATHEMATICA
a = {}; k = {}; Do[If[ ! PrimeQ[Fibonacci[Prime[n]]], c = Length[FactorInteger[Fibonacci[Prime[n]]]]; AppendTo[k, c]], {n, 1, 50}]; k
PROG
(PARI) forprime(p=2, 99, t=omega(fibonacci(p)); if(t!=1, print1(t", "))) \\ Charles R Greathouse IV, Feb 03 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Nov 13 2007
EXTENSIONS
Edited by R. J. Mathar, May 03 2008
a(38)-a(87) from Charles R Greathouse IV, Feb 03 2014
STATUS
approved