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

Author

Amarnath Murthy, Mar 13 2004

Keywords

• nonn

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)

Crossrefs

Cf. A000040, A000142, A067999.

Programs

Mathematica

A091858[n_] := Block[{k = p = 1, m = Prime[n]}, While[p = Mod[p k, m]; k < n, k++ ]; p]; Table[ A091858[ n], {n, 66}] (* Robert G. Wilson v, Mar 16 2004 *)
Table[Mod[n!,Prime[n]],{n,70}] (* Harvey P. Dale, Mar 01 2015 *)

Extensions

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