login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A072504 a(n) = LCM of divisors of n which are <= sqrt(n). 5
1, 1, 1, 2, 1, 2, 1, 2, 3, 2, 1, 6, 1, 2, 3, 4, 1, 6, 1, 4, 3, 2, 1, 12, 5, 2, 3, 4, 1, 30, 1, 4, 3, 2, 5, 12, 1, 2, 3, 20, 1, 6, 1, 4, 15, 2, 1, 12, 7, 10, 3, 4, 1, 6, 5, 28, 3, 2, 1, 60, 1, 2, 21, 8, 5, 6, 1, 4, 3, 70, 1, 24, 1, 2, 15, 4, 7, 6, 1, 40, 9, 2, 1, 84, 5, 2, 3, 8, 1, 90, 7, 4, 3, 2, 5, 24 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,4
LINKS
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
Cf. A072505.
Sequence in context: A070966 A338669 A219254 * A072499 A060272 A209315
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 20 2002
EXTENSIONS
More terms from Matthew Conroy, Sep 09 2002
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 01:36 EDT 2024. Contains 371264 sequences. (Running on oeis4.)