login
A091858
a(n) = n! mod prime(n).
3
1, 2, 1, 3, 10, 5, 8, 2, 9, 1, 22, 7, 4, 40, 29, 16, 23, 60, 48, 51, 49, 24, 74, 40, 15, 85, 3, 41, 16, 42, 119, 43, 51, 73, 14, 23, 150, 49, 104, 20, 128, 44, 185, 66, 146, 159, 178, 150, 44, 51, 48, 4, 134, 143, 118, 143, 242, 141, 149, 108, 115, 205, 306, 196, 292, 242
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
Sequence in context: A337887 A332058 A260758 * A070165 A192719 A270996
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Mar 13 2004
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Mar 16 2004
STATUS
approved