A328590 a(n) = A328578(n) - A257993(n).

0, 1, 0, 2, 0, 0, 0, 2, 0, 3, 0, -1, 0, 3, 0, 2, 0, 0, 0, 4, 0, 4, 0, -1, 0, 4, 0, 5, 0, -2, 0, 2, 0, 1, 0, 0, 0, 3, 0, 4, 0, -1, 0, 4, 0, 4, 0, 0, 0, 5, 0, 5, 0, -1, 0, 5, 0, 3, 0, -2, 0, 3, 0, 2, 0, 0, 0, 4, 0, 4, 0, -1, 0, 5, 0, 5, 0, 0, 0, 5, 0, 6, 0, -1, 0, 4, 0, 6, 0, -2, 0, 4, 0, 5, 0, 0, 0, 5, 0, 5, 0, -1, 0, 5, 0

Offset: 1

Author

Antti Karttunen, Oct 21 2019

Keywords

• sign

Links

• Antti Karttunen, Table of n, a(n) for n = 1..65537
• Index entries for sequences related to primorial base

Crossrefs

Cf. A257993, A276086, A328578, A328585 (positions of zeros), A328587 (of negative terms), A328588 (of positive terms).

Cf. A328591 (even bisection).

Programs

PARI

A257993(n) = { for(i=1,oo,if(n%prime(i),return(i))); }
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328578(n) = A257993(A276086(A276086(n)));
A328590(n) = (A328578(n) - A257993(n));

Formula

a(n) = A328578(n) - A257993(n).