A067999 Numbers k such that (k! - 1) == 0 (mod prime(k)).

1, 3, 10, 149, 437

Offset

1,2

Comments

There are no more terms through 5000000. - Ryan Propper, Dec 30 2007

Numbers k such that A091858(k) = 1. - Zak Seidov, Oct 05 2012

Links

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

Mathematica

f[n_] := Block[{k = p = 1, m = Prime[n]}, While[p = Mod[p k, m]; k < n, k++ ]; p]; Do[ If[ f[n] == 1, Print[n]], {n, 100000}] (* Robert G. Wilson v, Mar 16 2004 *)

Crossrefs

Cf. A068000, A091858.

Sequence in context: A191363 A291950 A358949 * A256164 A270553 A308657

Adjacent sequences: A067996 A067997 A067998 * A068000 A068001 A068002

Keyword

nonn,more

Author

Robert G. Wilson v, Feb 08 2002

Status

approved