A227443 Numbers k such that k and k+1 have the same binary XOR of divisors.
6, 110, 116, 194, 198, 204, 237, 437, 452, 507, 965, 969, 986, 1011, 1736, 1748, 1808, 1824, 1896, 1971, 1989, 2021, 3696, 6230, 6243, 6533, 6875, 12974, 13736, 13764, 14567, 14790, 15720, 26625, 29516, 29715, 32102, 49251, 55686, 57489, 61329, 64440, 99780, 104247, 114738
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..700
Programs
-
Mathematica
b[n_] := BitXor @@ Divisors[n]; b1 = 0; s = {}; Do[b2 = b[n]; If[b1 == b2, AppendTo[s, n-1]]; b1 = b2, {n, 1, 10^4}]; s (* Amiram Eldar, Sep 19 2019 *)
Comments