|
| |
|
|
A091858
|
|
n! mod prime(n).
|
|
1
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| No term is 0. For positions of 1's see A067999.
|
|
|
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}] (from Robert G. Wilson v Mar 16 2004)
|
|
|
CROSSREFS
| Sequence in context: A099644 A058113 A126009 * A070165 A203709 A196371
Adjacent sequences: A091855 A091856 A091857 * A091859 A091860 A091861
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 13 2004
|
|
|
EXTENSIONS
| Corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 16 2004
|
| |
|
|
