login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A325315 Bitwise-XOR of absolute values of (n - A048250(n)) and (n - A162296(n)). 4

%I

%S 1,3,2,1,4,0,6,1,5,2,10,4,12,4,6,1,16,15,18,6,30,24,22,20,19,10,30,0,

%T 28,52,30,1,46,54,46,51,36,48,54,54,40,28,42,12,28,52,46,100,41,57,38,

%U 14,52,28,38,8,46,26,58,40,60,28,22,1,82,12,66,10,94,12,70,83,72,98,42,20,94,20,78,102,105,126,82,32,66,120,118,12

%N Bitwise-XOR of absolute values of (n - A048250(n)) and (n - A162296(n)).

%H Antti Karttunen, <a href="/A325315/b325315.txt">Table of n, a(n) for n = 1..65537</a>

%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>

%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>

%F a(n) = A003987(abs(A325313(n)), abs(A325314(n))).

%t Array[BitXor @@ Abs[#1 - Map[Total, {#3, Complement[#2, #3]}]] & @@ {#1, #2, Select[#2, SquareFreeQ]} & @@ {#, Divisors[#]} &, 88] (* _Michael De Vlieger_, Apr 21 2019 *)

%o (PARI)

%o A048250(n) = factorback(apply(p -> p+1,factor(n)[,1]));

%o A325313(n) = (A048250(n) - n);

%o A162296(n) = sumdiv(n, d, d*(1-issquarefree(d)));

%o A325314(n) = (n - A162296(n));

%o A325315(n) = bitxor(abs(A325313(n)),abs(A325314(n)));

%Y Cf. A000396, A003987, A028982 (positions of odd terms), A048250, A162296, A228058, A325310, A325313, A325314.

%K nonn

%O 1,2

%A _Antti Karttunen_, Apr 21 2019

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 26 20:11 EST 2020. Contains 331288 sequences. (Running on oeis4.)