|
Search: id:A134792
|
|
|
| A134792 |
|
Round Log[(prime Fibonacci[Prime[k]]/Prime[k])]. |
|
+0
1
|
|
| 0, 0, 1, 2, 3, 5, 7, 10, 16, 18, 35, 57, 60, 166, 201, 201, 209, 238, 267, 268
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
MATHEMATICA
|
k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Round[Log[Fibonacci[Prime[n]]/Prime[n]]]]], {n, 1, 200}]; k
|
|
CROSSREFS
|
Cf. A050937, A090819, A134787, A134788, A134789, A134790, A134791.
Sequence in context: A003410 A018133 A116975 this_sequence A033068 A052011 A005468
Adjacent sequences: A134789 A134790 A134791 this_sequence A134793 A134794 A134795
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 12 2007
|
|
|
Search completed in 0.002 seconds
|
