login
A328583
a(n) = A023900(A276086(n)).
2
1, -1, -2, 2, -2, 2, -4, 4, 8, -8, 8, -8, -4, 4, 8, -8, 8, -8, -4, 4, 8, -8, 8, -8, -4, 4, 8, -8, 8, -8, -6, 6, 12, -12, 12, -12, 24, -24, -48, 48, -48, 48, 24, -24, -48, 48, -48, 48, 24, -24, -48, 48, -48, 48, 24, -24, -48, 48, -48, 48, -6, 6, 12, -12, 12, -12, 24, -24, -48, 48, -48, 48, 24, -24, -48, 48, -48, 48, 24, -24
OFFSET
0,3
FORMULA
a(n) = A023900(A276086(n)).
abs(a(n)) = A324650(n) / A328572(n).
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