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

1, 3, 10, 149, 437

Offset: 1

Author

Robert G. Wilson v, Feb 08 2002

Keywords

• nonn
• more

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

Crossrefs

Cf. A068000, A091858.

Programs

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 *)