OFFSET
3,6
LINKS
Amiram Eldar, Table of n, a(n) for n = 3..10000
FORMULA
a(n) = 0 <=> n in { A001605 }. - Alois P. Heinz, Aug 27 2024
MAPLE
a:= n-> (F-> F-prevprime(F+1))(combinat[fibonacci](n)):
seq(a(n), n=3..76); # Alois P. Heinz, Aug 27 2024
MATHEMATICA
a[n_]:=Module[{p=2}, While[(f=Fibonacci[n])>=p, pold=p; p=NextPrime[p]]; d=f-pold; If[d>0, f-pold, d=0]; d]; Array[a, 74, 3] (* Stefano Spezia, Aug 27 2024 *)
Map[(# - NextPrime[# + 1, -1]) &, Fibonacci[Range[3, 76]]] (* Amiram Eldar, Aug 29 2024 *)
PROG
(PARI) a(n) = my(F=fibonacci(n)); F-precprime(F)
(Python)
from sympy import prevprime, fibonacci
def A375753(n): return (F:=fibonacci(n)) - prevprime(F+1) # Karl-Heinz Hofmann, Aug 27 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Hugo Pfoertner, Aug 27 2024
STATUS
approved