login

Revision History for A088835

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
#16 by Michel Marcus at Sat Mar 30 02:34:25 EDT 2024
STATUS

reviewed

approved

#15 by Joerg Arndt at Sat Mar 30 01:50:29 EDT 2024
STATUS

proposed

reviewed

#14 by Paolo Xausa at Fri Mar 29 15:31:13 EDT 2024
STATUS

editing

proposed

#13 by Paolo Xausa at Fri Mar 29 15:29:58 EDT 2024
MATHEMATICA

Map[LCM[#[[1, 1]], #[[-1, 1]]] &, FactorInteger[Range[100]]] (* Paolo Xausa, Mar 29 2024 *)

STATUS

approved

editing

#12 by Joerg Arndt at Thu Mar 15 04:12:45 EDT 2018
STATUS

proposed

approved

#11 by Michel Marcus at Thu Mar 15 02:07:03 EDT 2018
STATUS

editing

proposed

#10 by Michel Marcus at Thu Mar 15 02:07:00 EDT 2018
PROG

(PARI) a(n) = if (n==1, 1, my(f=factor(n)[, 1]~); lcm(vecmin(f), vecmax(f))); \\ Michel Marcus, Mar 15 2018

STATUS

proposed

editing

#9 by Jon E. Schoenfield at Thu Mar 15 01:06:47 EDT 2018
STATUS

editing

proposed

#8 by Jon E. Schoenfield at Thu Mar 15 01:06:45 EDT 2018
NAME

a(n) =LCM[ lcm(A020639(n), A006530(n)]).

STATUS

approved

editing

#7 by N. J. A. Sloane at Tue Oct 15 22:32:19 EDT 2013
AUTHOR

_Labos E. (labos(AT)ana.sote.hu), Elemer_, Oct 31 2003

Discussion
Tue Oct 15
22:32
OEIS Server: https://oeis.org/edit/global/2029