A068000 (n! + 1) == 0 ( mod prime(n) ).

1, 2, 5, 18, 63

Offset

1,2

Links

Table of n, a(n) for n=1..5.

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: A321099 A241894 A148427 * A148428 A266833 A148429

Adjacent sequences: A067997 A067998 A067999 * A068001 A068002 A068003

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