%I
%S 1,2,3,6,24,51,251,3121,42613,23023556,143130479,2602986161967491
%N Indices n such that the nth prime is a Fibonacci number.
%F a(n) = A000720(A005478(n)).  _M. F. Hasler_, Aug 21 2011
%t PrimePi[Select[Fibonacci[Range[80]], PrimeQ]]
%o (PARI) print1("1, 2");forprime(p=5,47,if(isprime(fibonacci(p)),print1(", "primepi(fibonacci(p))))) \\ _Charles R Greathouse IV_, Aug 21 2011
%Y Cf. A001605 (nth Fibonacci number is prime), A005478 (Prime Fibonacci numbers).
%K hard,nonn
%O 1,2
%A _Rick L. Shepherd_, Nov 06 2004
%E a(11) from _Ryan Propper_, Oct 16 2005
%E a(12) from _Charles R Greathouse IV_, Aug 21 2011
