OFFSET
1,2
LINKS
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 21 2019
STATUS
approved