A344182 a(n) = A344026(n) XOR A344028(n).

0, 0, 0, 6, 0, 0, 5, 8, 0, 0, 0, 26, 15, 26, 18, 40, 0, 0, 0, 22, 0, 0, 63, 56, 9, 14, 31, 34, 82, 124, 119, 64, 0, 0, 0, 50, 0, 0, 45, 88, 0, 0, 0, 98, 99, 38, 234, 88, 29, 114, 29, 202, 35, 34, 136, 160, 162, 444, 406, 130, 393, 430, 452, 224, 0, 0, 0, 42, 0, 0, 97, 120, 0, 0, 0, 46, 215, 222, 130, 136, 0, 0, 0, 202

Offset

0,4

Links

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

Index entries for sequences related to binary expansion of n

Formula

a(n) = A344026(n) XOR A344028(n) = A003415(A005940(1+n)) XOR A069359(A005940(1+n)).

Prog

(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); (t); };
A069359(n) = (n*sumdiv(n, d, isprime(d)/d)); \\ From A069359
A344182(n) = { my(u=A005940(1+n)); bitxor(A003415(u), A069359(u)); };

Crossrefs

Cf. A003415, A003714 (positions of zeros), A005940, A069359, A344026, A344028.

Sequence in context: A212720 A114760 A261508 * A217219 A113555 A066604

Adjacent sequences: A344179 A344180 A344181 * A344183 A344184 A344185

Keyword

nonn

Author

Antti Karttunen, May 16 2021

Status

approved