OFFSET
1,1
MATHEMATICA
Select[Range[4000], CompositeQ[#/2]&&Mod[Fibonacci[#^2+1], #]==5&] (* Harvey P. Dale, Jan 11 2017 *)
PROG
(PARI) isok(n) = !(n%2) && !isprime(n/2) && ((fibonacci(n^2+1) % n) == 5); \\ Michel Marcus, Dec 06 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Sep 06 2003
EXTENSIONS
More terms from Don Reble, Sep 16 2003
More terms from Michel Marcus, Dec 06 2013
STATUS
approved