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

 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
 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, 28, 52, 30, 1, 46, 54, 46, 51, 36, 48, 54, 54, 40, 28, 42, 12, 28, 52, 46, 100, 41, 57, 38, 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Antti Karttunen, Table of n, a(n) for n = 1..65537 FORMULA a(n) = A003987(abs(A325313(n)), abs(A325314(n))). MATHEMATICA Array[BitXor @@ Abs[#1 - Map[Total, {#3, Complement[#2, #3]}]] & @@ {#1, #2, Select[#2, SquareFreeQ]} & @@ {#, Divisors[#]} &, 88] (* Michael De Vlieger, Apr 21 2019 *) PROG (PARI) A048250(n) = factorback(apply(p -> p+1, factor(n)[, 1])); A325313(n) = (A048250(n) - n); A162296(n) = sumdiv(n, d, d*(1-issquarefree(d))); A325314(n) = (n - A162296(n)); A325315(n) = bitxor(abs(A325313(n)), abs(A325314(n))); CROSSREFS Cf. A000396, A003987, A028982 (positions of odd terms), A048250, A162296, A228058, A325310, A325313, A325314. Sequence in context: A111572 A046900 A270828 * A230845 A194528 A194520 Adjacent sequences:  A325312 A325313 A325314 * A325316 A325317 A325318 KEYWORD nonn AUTHOR Antti Karttunen, Apr 21 2019 STATUS approved

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.

Last modified May 16 21:28 EDT 2021. Contains 343951 sequences. (Running on oeis4.)