|
|
A227443
|
|
Numbers k such that k and k+1 have the same binary XOR of divisors.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|