OFFSET
0,2
PROG
(PARI) A346233(n) = { my(p=2, m=1); while(n>0, my(d=n%p); if(d>0, m *= p^if(2==p, d, lift(Mod(d, p)/2))); n \= p; p = nextprime(1+p)); return(m); };
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Jul 18 2021
STATUS
approved