OFFSET
1,5
LINKS
MATHEMATICA
Array[BitXor[DivisorSigma[1, #], IntegerExponent[(2 #)!, 2]] &, 80] (* Michael De Vlieger, Nov 26 2017 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 25 2017
STATUS
approved