A134852 Number of distinct prime factors of the Fibonacci numbers in A050937.

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

Author

Artur Jasinski, Nov 13 2007

Keywords

• nonn

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)

Crossrefs

Cf. A000045, A001221, A001605, A050937, A075737, A090819, A134787, A134851.

Programs

Mathematica

a = {}; k = {}; Do[If[ ! PrimeQ[Fibonacci[Prime[n]]], c = Length[FactorInteger[Fibonacci[Prime[n]]]]; AppendTo[k, c]], {n, 1, 50}]; k

PARI

forprime(p=2,99,t=omega(fibonacci(p)); if(t!=1,print1(t", "))) \\ Charles R Greathouse IV, Feb 03 2014

Formula

a(n) = A001221(A050937(n)). - R. J. Mathar, May 03 2008

Extensions

Edited by R. J. Mathar, May 03 2008

a(38)-a(87) from Charles R Greathouse IV, Feb 03 2014