|
%I #9 Aug 03 2014 14:31:48
%S 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,
%T 28,24,30,24,27,32,24,24,36,36,33,24,40,36,42,32,30,44,46,24,42,40,48,
%U 48,52,36,45,48,54,52,58,24,60,60,57,56,55,60,66,64,60,50
%N Maximum value of factorials mod n.
%H T. D. Noe, <a href="/A062170/b062170.txt">Table of n, a(n) for n = 1..10000</a>
%e 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.
%t With[{fctrls=Factorial[Range[100]]}, Table[Max[Mod[Take[fctrls,n], n]], {n,100}]] (* _Harvey P. Dale_, Jan 03 2011 *)
%Y Cf. A062169.
%K nonn
%O 1,3
%A _Henry Bottomley_, Jun 11 2001
|
