A364568 a(n) = A290077(n) - A364567(n).

1, 0, 0, 0, 0, 0, 2, 0, -2, 0, 4, 0, 12, 2, 10, 0, -6, -2, 4, 0, 16, 4, 16, 0, 26, 12, 32, 4, 84, 10, 38, 0, -20, -6, 4, -4, 24, 4, 20, 0, 44, 16, 40, 8, 104, 16, 56, 0, 78, 26, 68, 24, 152, 32, 104, 8, 262, 84, 184, 20, 468, 38, 130, 0, -48, -20, -8, -12, 16, 4, 28, -8, 40, 24, 64, 8, 168, 20, 76, 0, 88, 44, 104, 32

Offset

0,7

Links

Antti Karttunen, Table of n, a(n) for n = 0..16383

Index entries for sequences related to binary expansion of n

Formula

For n > 0, a(n) = -A364558(A005940(1+n)) = A000010(A005940(1+n)) - 2^A033265(n).

Prog

(PARI)
A290077(n) = { my(p=2, z=1); while(n, if(!(n%2), p=nextprime(1+p), z *= (p-(1==(n%4)))); n>>=1); (z); };
A364567(n) = if(!n, n, my(i=1); while(n>1, if((n%4)!=1, i<<=1); n >>= 1); (i));
A364568(n) = (A290077(n) - A364567(n));

Crossrefs

Cf. A000010, A005940, A033265, A290077, A297112, A364558, A364567.

Cf. also A364499.

Sequence in context: A051629 A052120 A179461 * A364499 A238763 A029186

Adjacent sequences: A364565 A364566 A364567 * A364569 A364570 A364571

Keyword

sign

Author

Antti Karttunen, Aug 05 2023

Status

approved