A086130 a(n) = lcm(n, A003415(n)).

0, 2, 3, 4, 5, 30, 7, 24, 18, 70, 11, 48, 13, 126, 120, 32, 17, 126, 19, 120, 210, 286, 23, 264, 50, 390, 27, 224, 29, 930, 31, 160, 462, 646, 420, 180, 37, 798, 624, 680, 41, 1722, 43, 528, 585, 1150, 47, 336, 98, 450, 1020, 728, 53, 162, 880, 1288, 1254, 1798, 59

Offset

1,2

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Example

If n=prime, lcm(prime,1)=prime.

Mathematica

Table[LCM[n, If[Abs@ n < 2, 0, n Total[#2/#1 & @@@ FactorInteger[Abs@ n]]]], {n, 59}] (* Michael De Vlieger, Feb 05 2017, after Michael Somos at A003415 *)

Prog

(PARI) a(n) = lcm(n, sum(i=1, #f=factor(n)~, n/f[1, i]*f[2, i]) ); \\ Michel Marcus, Dec 11 2013

Crossrefs

Cf. A003415.

Sequence in context: A220890 A250260 A345306 * A380485 A024636 A004845

Adjacent sequences: A086127 A086128 A086129 * A086131 A086132 A086133

Keyword

nonn

Author

Labos Elemer, Jul 23 2003

Status

approved