OFFSET
1,6
COMMENTS
a(n) = 1 if Fibonacci(n) is prime.
MATHEMATICA
Table[Fibonacci[n] - EulerPhi[Fibonacci[n]], {n, 40}] (* Alonso del Arte, Nov 21 2016 *)
PROG
(PARI) a(n) = fibonacci(n) - eulerphi(fibonacci(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Nov 19 2016
STATUS
approved