OFFSET
0,5
LINKS
FORMULA
PROG
(PARI) A353630(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); m *= (p^e); s += (e/p); n = n\p; p = nextprime(1+p)); ((s*m)%4); };
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, May 01 2022
STATUS
approved