OFFSET
1,2
COMMENTS
No term is 0. For positions of 1's see A067999.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from Zak Seidov)
MATHEMATICA
A091858[n_] := Block[{k = p = 1), m = Prime[n]}, While[p = Mod[p k, m]; k < n, k++ ]; p]; Table[ f[ n], {n, 66}] (* Robert G. Wilson v, Mar 16 2004 *)
Table[Mod[n!, Prime[n]], {n, 70}] (* Harvey P. Dale, Mar 01 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Mar 13 2004
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Mar 16 2004
STATUS
approved