OFFSET
1,2
MATHEMATICA
Do[ If[ Mod[n! + 1, Prime[n]] == 0, Print[n]], {n, 1, 10000} ]
PROG
(PARI) for(X=10001, 33333, if( (X!+1)%prime(X)==0, print(X)))
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
Robert G. Wilson v, Feb 08 2002
EXTENSIONS
There are no other terms below 33333. Is 63 the last term? - Hauke Worpel (hw1(AT)email.com), May 24 2003
There are no other terms below 534000. - Rick L. Shepherd, May 26 2003
STATUS
approved