STATUS
proposed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A072504
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
STATUS
editing
proposed
NAME
a(n) = LCM of divisors of n which are <= sqrt(n^(1/2).
EXAMPLE
a(20) = 4: the divisors of 20 are 1,2,4,5,10 and 20. ; a(20) = LCM{ lcm(1,2,4} ) = 4.
STATUS
approved
editing
STATUS
editing
approved
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
STATUS
approved
editing
STATUS
editing
approved
LINKS
Matthew M. Conroy, <a href="http://www.madandmoonly.com/doctormatt">Home page</a> (listed instead of email address)
EXTENSIONS
More terms from _Matthew M. Conroy, _, Sep 09 2002
STATUS
approved
editing
STATUS
editing
approved
MATHEMATICA
Table[LCM@@Select[Divisors[n], #<=Sqrt[n]&], {n, 100}] (* Harvey P. Dale, Aug 26 2014 *)
STATUS
approved
editing
AUTHOR
_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Jul 20 2002