OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..700
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
Alex Ratushnyak, Jul 11 2013
STATUS
approved