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
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Feb 08 2002
STATUS
approved