OFFSET
1,4
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
a(20) = 4: the divisors of 20 are 1,2,4,5,10 and 20; a(20) = lcm(1,2,4) = 4.
MAPLE
A072504 := proc(n)
local ds ;
ds := [] ;
for d in numtheory[divisors](n) do
if d^2 <= n then
ds := [op(ds), d] ;
end if;
end do:
ilcm(op(ds)) ;
end proc:
seq(A072504(n), n=1..20) ; # R. J. Mathar, Oct 03 2014
MATHEMATICA
Table[LCM@@Select[Divisors[n], #<=Sqrt[n]&], {n, 100}] (* Harvey P. Dale, Aug 26 2014 *)
PROG
(Haskell)
a072504 = foldl1 lcm . a161906_row -- Reinhard Zumkeller, Mar 08 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 20 2002
EXTENSIONS
More terms from Matthew Conroy, Sep 09 2002
STATUS
approved