OFFSET
1,2
LINKS
PROG
(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
(PARI) A324644(n) = { my(m=1, p=2, s=sigma(n)); while(n, m *= (p^min(n%p, valuation(s, p))); n = n\p; p = nextprime(1+p)); (m); }; \\ Antti Karttunen, Sep 17 2025
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Mar 11 2019
STATUS
approved
