|
Search: id:A134852
|
|
|
| A134852 |
|
Number of distinct prime factors of the Fibonacci numbers in A050937. |
|
+0
19
|
|
| 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; listen)
|
|
|
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 this_sequence A071188 A163105 A152235
Adjacent sequences: A134849 A134850 A134851 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
