login
A067999
Numbers k such that (k! - 1) == 0 (mod prime(k)).
2
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
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
Sequence in context: A191363 A291950 A358949 * A375529 A256164 A270553
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Feb 08 2002
STATUS
approved