|
Search: id:A134850
|
|
| |
| |
|
|
OFFSET
|
1,1
|
|
|
MAPLE
|
a = {}; k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Fibonacci[Prime[n]]]], {n, 1, 100}]; Do[AppendTo[a, PrimePi[k[[n + 1]]] - PrimePi[k[[n]]]], {n, 1, 9}]; a ( * Artur Jasinski *)
|
|
CROSSREFS
|
Cf. A000045, A050937, A075737, A090819, A134787.
Adjacent sequences: A134847 A134848 A134849 this_sequence A134851 A134852 A134853
Sequence in context: A047191 A096308 A073529 this_sequence A064777 A137784 A053195
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 13 2007
|
|
|
Search completed in 0.002 seconds
|
