|
| |
| |
|
|
|
0, 1, 1, 1, 1, 1, 2, 1, 4, 1, 8, 9, 1, 39, 11, 1, 3, 10, 7, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,7
|
|
|
MATHEMATICA
| a = {}; k = {}; Do[If[PrimeQ[Fibonacci[n]], AppendTo[k, n]], {n, 1, 1000}]; Do[AppendTo[a, PrimePi[k[[n + 1]]] - PrimePi[k[[n]]]], {n, 1, 20}]; a( * Artur Jasinski *)
|
|
|
CROSSREFS
| Cf. A000045, A001605, A050937, A075737, A090819, A134787, A134851.
Sequence in context: A147457 A107061 A112481 * A038001 A147080 A146418
Adjacent sequences: A134848 A134849 A134850 * A134852 A134853 A134854
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Nov 13 2007
|
| |
|
|
