A062170 Maximum value of factorials mod n.

0, 1, 2, 2, 4, 2, 6, 6, 6, 6, 10, 6, 12, 10, 9, 8, 16, 12, 18, 6, 15, 16, 22, 6, 24, 24, 24, 24, 28, 24, 30, 24, 27, 32, 24, 24, 36, 36, 33, 24, 40, 36, 42, 32, 30, 44, 46, 24, 42, 40, 48, 48, 52, 36, 45, 48, 54, 52, 58, 24, 60, 60, 57, 56, 55, 60, 66, 64, 60, 50

Offset

1,3

Links

T. D. Noe, Table of n, a(n) for n = 1..10000

Example

a(15)=9 since factorials are 1, 2, 6, 24, 120, 720, etc. which mod 15 are 1, 2, 6, 9, 0, 0, etc. and the greatest value is 9.

Mathematica

With[{fctrls=Factorial[Range[100]]}, Table[Max[Mod[Take[fctrls, n], n]], {n, 100}]] (* Harvey P. Dale, Jan 03 2011 *)

Crossrefs

Cf. A062169.

Sequence in context: A171751 A124676 A076249 * A375386 A307536 A248842

Adjacent sequences: A062167 A062168 A062169 * A062171 A062172 A062173

Keyword

nonn

Author

Henry Bottomley, Jun 11 2001

Status

approved