STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Map[LCM[#[[1, 1]], #[[-1, 1]]] &, FactorInteger[Range[100]]] (* Paolo Xausa, Mar 29 2024 *)
approved
editing
proposed
approved
editing
proposed
(PARI) a(n) = if (n==1, 1, my(f=factor(n)[, 1]~); lcm(vecmin(f), vecmax(f))); \\ Michel Marcus, Mar 15 2018
proposed
editing
editing
proposed
_Labos E. (labos(AT)ana.sote.hu), Elemer_, Oct 31 2003