OFFSET
1,2
COMMENTS
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
EXAMPLE
PROG
(PARI) a(n) = { my (f=factor(n), v=vecprod(f[, 1]~)); for (k=1, #f~, v=lcm(v, a(f[k, 2]))); v }
CROSSREFS
KEYWORD
nonn
AUTHOR
Rémy Sigrist, Aug 09 2020
STATUS
approved