OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = pi(A090819(n)). - Amiram Eldar, Oct 25 2024
MATHEMATICA
k = {}; Do[If[ ! PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, n]], {n, 1, 100}]; k
Select[Range[90], !PrimeQ[Fibonacci[Prime[#]]]&] (* Harvey P. Dale, Oct 16 2016 *)
PROG
(Magma) [n: n in [1..100]| not IsPrime(Fibonacci(NthPrime(n)))]; // Vincenzo Librandi, Jan 18 2013
(PARI) is(n)=!isprime(fibonacci(prime(n))) \\ Charles R Greathouse IV, Feb 03 2014
CROSSREFS
KEYWORD
nonn,easy,changed
AUTHOR
Artur Jasinski, Nov 12 2007
EXTENSIONS
Definition corrected by N. J. A. Sloane, Nov 12 2007
STATUS
approved