|
%I #11 Sep 19 2019 16:24:20
%S 6,110,116,194,198,204,237,437,452,507,965,969,986,1011,1736,1748,
%T 1808,1824,1896,1971,1989,2021,3696,6230,6243,6533,6875,12974,13736,
%U 13764,14567,14790,15720,26625,29516,29715,32102,49251,55686,57489,61329,64440,99780,104247,114738
%N Numbers k such that k and k+1 have the same binary XOR of divisors.
%C n such that A178910(n+1) = A178910(n).
%H Amiram Eldar, <a href="/A227443/b227443.txt">Table of n, a(n) for n = 1..700</a>
%t 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 *)
%Y Cf. A178910, A002961.
%K nonn,base
%O 1,1
%A _Alex Ratushnyak_, Jul 11 2013
|
