|
| |
|
|
A134852
|
|
Number of distinct prime factors of the Fibonacci numbers in A050937.
|
|
18
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| a(n)=A001221(A050937(n)). - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 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 ( * Artur Jasinski *)
|
|
|
CROSSREFS
| Cf. A000045, A001605, A050937, A075737, A090819, A134787, A134851.
Sequence in context: A145989 A117183 A071187 * A071188 A163105 A152235
Adjacent sequences: A134849 A134850 A134851 * A134853 A134854 A134855
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Nov 13 2007
|
|
|
EXTENSIONS
| Edited by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), May 03 2008
|
| |
|
|
