OFFSET
0,3
LINKS
PROG
(PARI) A328583(n) = { my(m=1, p=2); while(n, m *= (1-p)^!!(n%p); n = n\p; p = nextprime(1+p)); (m); };
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Oct 21 2019
STATUS
approved