OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..20
MATHEMATICA
k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Fibonacci[Prime[n]] - Prime[n]]], {n, 1, 100}]; k
fpn[n_]:=Module[{prn=Prime[n], fib}, fib=Fibonacci[prn]; If[PrimeQ[fib], fib- prn, a]]; DeleteCases[Table[fpn[i], {i, 100}], a] (* Harvey P. Dale, Mar 27 2012 *)
PROG
(PARI) forprime(n=1, 1000, if(isprime(fibonacci(n)), print1(fibonacci(n)-n, ", "))) \\ Edward Jiang, Nov 23 2013
CROSSREFS
KEYWORD
sign,changed
AUTHOR
Artur Jasinski, Nov 12 2007
STATUS
approved