A134852 - OEIS

%I #18 Aug 28 2020 01:52:13

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

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

%U 5,5,3,5,3,2,3,4,3,4,6,3,4,3,5,3,5,6,2

%N Number of distinct prime factors of the Fibonacci numbers in A050937.

%H Charles R Greathouse IV and Amiram Eldar, <a href="/A134852/b134852.txt">Table of n, a(n) for n = 1..202</a> (terms 1..185 from Charles R Greathouse IV)

%F a(n) = A001221(A050937(n)). - _R. J. Mathar_, May 03 2008

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

%o (PARI) forprime(p=2,99,t=omega(fibonacci(p)); if(t!=1,print1(t", "))) \\ _Charles R Greathouse IV_, Feb 03 2014

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

%K nonn

%O 1,2

%A _Artur Jasinski_, Nov 13 2007

%E Edited by _R. J. Mathar_, May 03 2008

%E a(38)-a(87) from _Charles R Greathouse IV_, Feb 03 2014