|
Search: id:A134851
|
|
| |
|
| 0, 1, 1, 1, 1, 1, 2, 1, 4, 1, 8, 9, 1, 39, 11, 1, 3, 10, 7, 1
(list; graph; listen)
|
|
|
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.
Adjacent sequences: A134848 A134849 A134850 this_sequence A134852 A134853 A134854
Sequence in context: A147457 A107061 A112481 this_sequence A038001 A147080 A146418
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 13 2007
|
|
|
Search completed in 0.002 seconds
|
