%I #6 Oct 21 2019 19:27:22
%S 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,
%T -8,8,-8,-6,6,12,-12,12,-12,24,-24,-48,48,-48,48,24,-24,-48,48,-48,48,
%U 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
%N a(n) = A023900(A276086(n)).
%H Antti Karttunen, <a href="/A328583/b328583.txt">Table of n, a(n) for n = 0..32768</a>
%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%F a(n) = A023900(A276086(n)).
%F abs(a(n)) = A324650(n) / A328572(n).
%o (PARI) A328583(n) = { my(m=1, p=2); while(n, m *= (1-p)^!!(n%p); n = n\p; p = nextprime(1+p)); (m); };
%Y Cf. A023900, A276086, A324650, A328572.
%K sign
%O 0,3
%A _Antti Karttunen_, Oct 21 2019