OFFSET
1,1
MATHEMATICA
Select[Range[500], CompositeQ[#]&&Mod[Fibonacci[#^2+1], #]==1&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 03 2020 *)
PROG
(PARI) isok(n) = !isprime(n) && ((fibonacci(n^2+1) % n) == 1); \\ Michel Marcus, Dec 06 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Sep 06 2003
STATUS
approved