A091858 a(n) = n! mod prime(n).

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

Cf. A000040, A000142.

Sequence in context: A337887 A332058 A260758 * A070165 A192719 A270996

Adjacent sequences: A091855 A091856 A091857 * A091859 A091860 A091861

Keyword

nonn

Author

Amarnath Murthy, Mar 13 2004

Extensions

Corrected and extended by Robert G. Wilson v, Mar 16 2004

Status

approved