OFFSET
1,1
COMMENTS
Except p=5, all prime numbers p are in the sequence.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[200], Mod[Fibonacci[#^2 + 1], #] == 1 &] (* Amiram Eldar, May 13 2022 *)
PROG
(PARI) isok(n) = ((fibonacci(n^2+1) % n) == 1); \\ Michel Marcus, Dec 06 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Sep 06 2003
STATUS
approved