|
| |
|
|
A134790
|
|
Floor (prime Fibonacci[Prime[k]]/Prime[k]).
|
|
3
| |
|
|
0, 1, 1, 8, 17, 93, 1245, 17732, 10081265, 63217341, 1195118711985005, 8140003186959622868813528, 139669360584622467747806013, 1324290912910022899017738237233285189213652972190967113265372469016533360
(list; graph; refs; listen; history; internal format)
|
|
|
|
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.
Sequence in context: A186255 A187987 A171065 * A177129 A177178 A097405
Adjacent sequences: A134787 A134788 A134789 * A134791 A134792 A134793
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Nov 12 2007
|
| |
|
|
