OFFSET
0,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..16383
Antti Karttunen, Data supplement: n, a(n) computed for n = 0..65537
PROG
(PARI) A324340(n) = { my(m1=1, p=2); while(n, if(!(n%2), p=nextprime(1+p); n>>=1, if(1==(n%4), m1 *= -(1+p), if(3==(n%8), m1 *= p, return(0))); while((n%2), n>>=1))); (m1); };
(PARI)
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t }; \\ From A005940
A046692(n) = { my(f=factor(n)~); prod(i=1, #f, if(1==f[2, i], -(f[1, i]+1), if(2==f[2, i], f[1, i], 0))); };
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Feb 24 2019
STATUS
approved