|
|
A086130
|
|
a(n) = lcm(n, A003415(n)).
|
|
9
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
If n=prime, lcm(prime,1)=prime.
|
|
MATHEMATICA
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|