OFFSET
1,2
FORMULA
PROG
(PARI) isok(n) = {for (x=2, n-2, if ((Mod(x, n)^6) == Mod(1, n), return (0)); ); return (1); } \\ Michel Marcus, Nov 20 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 04 2002
EXTENSIONS
Extended by Ray Chandler, Nov 06 2003
Terms 1, 2 and 3 prepended by Michel Marcus, Nov 20 2013
STATUS
approved