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