|
| |
|
|
A068000
|
|
(n! + 1) == 0 ( mod prime(n) ).
|
|
2
| | |
|
|
|
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
| Cf. A067999, A066953.
Sequence in context: A148425 A148426 A148427 * A148428 A148429 A093635
Adjacent sequences: A067997 A067998 A067999 * A068001 A068002 A068003
|
|
|
KEYWORD
| nonn,hard
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), 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 (rshepherd2(AT)hotmail.com), May 26 2003
|
| |
|
|
