OFFSET
1,2
COMMENTS
Includes 4*p for primes p with p == 17 or 23 (mod 30). - Robert Israel, May 11 2021
LINKS
Robert Israel, Table of n, a(n) for n = 1..2000
MAPLE
fpp:= n -> mpow(n-1, n)[2, 2]:
M:= <<0, 1>|<1, 1>>:
mpow:= proc(n, p)
if n = 0 then <<1, 0>|<0, 1>>
elif n::even then procname(n/2, p)^2 mod p
else procname((n-1)/2, p)^2 . M mod p
fi
end proc:
select(t -> fpp(t)+3 mod t = 0, [$1..10000]); # Robert Israel, May 11 2021
MATHEMATICA
Select[Range[3600], Mod[Fibonacci[#]+3, #]==0&] (* Harvey P. Dale, Sep 21 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition clarified by N. J. A. Sloane, Sep 21 2021
STATUS
approved