OFFSET
0,5
COMMENTS
a(0) = 1 as an empty product.
LINKS
PROG
(PARI) A328582(n) = { my(m=1, p=2); while(n, if(n%p, m = lcm(m, n%p)); n = n\p; p = nextprime(1+p)); (m); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 21 2019
STATUS
approved