|
Search: id:A134790
|
|
|
| A134790 |
|
Floor (prime Fibonacci[Prime[k]]/Prime[k]). |
|
+0
4
|
|
| 0, 1, 1, 8, 17, 93, 1245, 17732, 10081265, 63217341, 1195118711985005, 8140003186959622868813528, 139669360584622467747806013, 1324290912910022899017738237233285189213652972190967113265372469016533360
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
MATHEMATICA
|
k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Floor[Fibonacci[Prime[n]]/Prime[n]]]], {n, 1, 100}]; k
|
|
CROSSREFS
|
Cf. A050937, A090819, A134787, A134788, A134789.
Adjacent sequences: A134787 A134788 A134789 this_sequence A134791 A134792 A134793
Sequence in context: A008782 A146078 A097058 this_sequence A097405 A088588 A041537
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 12 2007
|
|
|
Search completed in 0.002 seconds
|
