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

Author

Henry Bottomley, Jun 11 2001

Keywords

• nonn

Examples

			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.
		

Links

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

Crossrefs

Cf. A062169.

Programs

Mathematica

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