OFFSET
1,3
LINKS
PROG
(PARI) A345046(n) = { my(f=factor(n)~); lcm(vector(#f, i, (f[1, i]-1)^f[2, i])); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 07 2021
STATUS
approved