This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A134852 #18 Aug 28 2020 01:52:13 %S A134852 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 A134852 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 A134852 5,5,3,5,3,2,3,4,3,4,6,3,4,3,5,3,5,6,2 %N A134852 Number of distinct prime factors of the Fibonacci numbers in A050937. %H A134852 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 A134852 a(n) = A001221(A050937(n)). - _R. J. Mathar_, May 03 2008 %t A134852 a = {}; k = {}; Do[If[ ! PrimeQ[Fibonacci[Prime[n]]], c = Length[FactorInteger[Fibonacci[Prime[n]]]]; AppendTo[k, c]], {n, 1, 50}]; k %o A134852 (PARI) forprime(p=2,99,t=omega(fibonacci(p)); if(t!=1,print1(t", "))) \\ _Charles R Greathouse IV_, Feb 03 2014 %Y A134852 Cf. A000045, A001221, A001605, A050937, A075737, A090819, A134787, A134851. %K A134852 nonn %O A134852 1,2 %A A134852 _Artur Jasinski_, Nov 13 2007 %E A134852 Edited by _R. J. Mathar_, May 03 2008 %E A134852 a(38)-a(87) from _Charles R Greathouse IV_, Feb 03 2014