%I #8 Jul 31 2015 01:26:55
%S 1,0,1,1,4,2,15,23,56,45,420,355,3960,3432,3003,5299,80080,71650,
%T 1225224,1108536,1007760,920128,19399380,17847429,82372752,76271066,
%U 212469400,197816337,5354228880,5008794758,145568097675,273491577450
%N a(n) = floor(lcm(1,2,...n)/(1+2+...+n)).
%e a(6)=2 because floor(lcm(1,2,3,4,5,6)/(1+2+3+4+5+6)) = floor(60/21) = 2.
%p a:=n->floor(2*lcm(seq(k,k=1..n))/n/(n+1)): seq(a(n),n=1..37); # _Emeric Deutsch_
%t f[n_] := Floor[ 2LCM @@ Range[n]/(n(n + 1))]; Table[ f[n], {n, 32}] (* _Robert G. Wilson v_, Jul 18 2005 *)
%K easy,nonn
%O 1,5
%A _Amarnath Murthy_, Jul 16 2005
%E More terms from _Emeric Deutsch_ and _Robert G. Wilson v_, Jul 16 2005