A241974 a(n) is the limit of the sequence given by A241083^[i](n), where f^[i] means iterate f i times, or 0 if the sequence diverges.
1, 2, 3, 4, 30, 6, 42, 8, 9, 30
Offset: 1
Examples
a(5) = 30 because A241083(5) = 10, A241083(10) = 30, and A241083(30) = 30.
Programs
-
Mathematica
a[n_] := FixedPoint[LCM[#, Floor[Sqrt[#]]] &, n]; Array[a, 10] (* Amiram Eldar, Jul 26 2025 *)
Comments