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

Author

Labos Elemer, Jul 23 2003

Keywords

• nonn

Examples

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

Links

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

Crossrefs

Cf. A003415.

Programs

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 *)

PARI

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