A097905 Triangle where a(m,n) = largest divisor of m! coprime to n.
1, 2, 1, 6, 3, 2, 24, 3, 8, 3, 120, 15, 40, 15, 24, 720, 45, 80, 45, 144, 5, 5040, 315, 560, 315, 1008, 35, 720, 40320, 315, 4480, 315, 8064, 35, 5760, 315, 362880, 2835, 4480, 2835, 72576, 35, 51840, 2835, 4480, 3628800, 14175, 44800, 14175, 145152, 175
Offset: 1
Examples
a(6,3) = 80 because 80 is largest divisor of 720 which is coprime to 3.
Crossrefs
Cf. A095996.
Programs
-
Maple
seq(seq(denom(m^n/n!),m=1..n),n=1..11); # Vladeta Jovovic, May 03 2005
-
Mathematica
Flatten[Table[Table[Select[Divisors[m! ], GCD[ #,n]==1&][[ -1]], {n,1,m}],{m,1, 10}]] (* Stefan Steinerberger, Nov 09 2007 *)
Extensions
More terms from Stefan Steinerberger, Nov 09 2007
Comments