28 Apr
2015
28 Apr
'15
1:19 p.m.
On 2015-04-27 12:44, Dan Asimov wrote:
In this session:
----- In[1]:= f[n_] := If[n==1, 1, LCM[n,f[n-1]] ]
In[2]:= f[11]
Out[3]= 27720
Shorter: In[131]:= FoldList[LCM, 1, Range[19]] Out[131]= {1, 1, 2, 6, 12, 60, 60, 420, 840, 2520, 2520, 27720, 27720, 360360, 360360, 360360, 720720, 12252240, 12252240, 232792560} --rwg