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,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

Crossrefs

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

Sequence in context: A352503 A071187 A329614 * A071188 A078545 A163105

Adjacent sequences: A134849 A134850 A134851 * A134853 A134854 A134855

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