cp's OEIS Frontend

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.

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

This page as a plain text file.
%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