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