A241083 LCM of n and largest integer <= sqrt(n).
1, 2, 3, 4, 10, 6, 14, 8, 9, 30, 33, 12, 39, 42, 15, 16, 68, 36, 76, 20, 84, 44, 92, 24, 25, 130, 135, 140, 145, 30, 155, 160, 165, 170, 35, 36, 222, 114, 78, 120, 246, 42, 258, 132, 90, 138, 282, 48, 49, 350, 357, 364, 371, 378, 385, 56, 399, 406, 413, 420
Offset: 1
Examples
a(18) cannot be 18 because 18 is not a multiple of 4, the largest integer <= sqrt(18).
Links
- Ivan Neretin, Table of n, a(n) for n = 1..10000
Programs
-
Maple
A241083:= n-> ilcm(n,floor(sqrt(n))): seq(A241083(n), n=1..50); # Wesley Ivan Hurt, Apr 15 2014
-
Mathematica
Table[LCM[n, Floor[Sqrt[n]]], {n, 50}] (* Wesley Ivan Hurt, Apr 15 2014 *)
Formula
a(n) = lcm(n, floor(sqrt(n))) = lcm(n, A000196(n)). - Wesley Ivan Hurt, Apr 15 2014
Extensions
Extended by Wesley Ivan Hurt, Apr 15 2014
Comments