login
A134852
Number of distinct prime factors of the Fibonacci numbers in A050937.
19
0, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 2, 4, 2, 3, 2, 2, 2, 2, 3, 4, 2, 4, 4, 2, 2, 3, 3, 2, 2, 4, 2, 4, 4, 2, 5, 3, 4, 3, 2, 3, 3, 4, 2, 2, 3, 4, 2, 4, 4, 4, 3, 2, 3, 5, 4, 2, 7, 5, 4, 3, 3, 2, 2, 4, 3, 4, 5, 5, 3, 5, 3, 2, 3, 4, 3, 4, 6, 3, 4, 3, 5, 3, 5, 6, 2
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
a(n) = A001221(A050937(n)). - R. J. Mathar, May 03 2008
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
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