OFFSET
1,3
COMMENTS
PROG
(PARI) a090086(n) = {forcomposite(k=2, , if (Mod(n, k)^(k-1) == 1, return (k)); ); }
isok(n) = a090086(n+1) > n+1; \\ Michel Marcus, Aug 12 2018
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Thomas Ordowski, Aug 12 2018
STATUS
approved