1,2

There are no more terms through 5000000. - Ryan Propper (rpropper(AT)cs.stanford.edu), Dec 30 2007

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}] (from Robert G. Wilson v Mar 16 2004)

Cf. A068000.

Sequence in context: A132480 A074260 A056006 this_sequence A156193 A119035 A004100

Adjacent sequences: A067996 A067997 A067998 this_sequence A068000 A068001 A068002

nonn,more

Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 08 2002