OFFSET
1,3
COMMENTS
No odd terms after the initial 1.
LINKS
PROG
(PARI)
A324198(n) = { my(m=1, p=2, orgn=n); while(n, m *= (p^min(n%p, valuation(orgn, p))); n = n\p; p = nextprime(1+p)); (m); };
memoA346242 = Map();
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, May 24 2024
STATUS
approved