OFFSET
1,2
LINKS
FORMULA
MATHEMATICA
Array[BitXor @@ Map[Total, {#3, Complement[#2, #3]}] & @@ {#1, #2, Select[#2, SquareFreeQ]} & @@ {#, Divisors[#]} &, 79] (* Michael De Vlieger, Apr 21 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 21 2019
STATUS
approved