

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



