OFFSET
1,1
LINKS
FORMULA
MATHEMATICA
Array[Mod[DivisorSigma[1, DivisorSigma[0, #]], 2] &, 105] (* Michael De Vlieger, Nov 18 2017 *)
PROG
(PARI) A181183(n) = (sigma(numdiv(n))%2); \\ Antti Karttunen, Nov 18 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Jani Melik, Jan 26 2011
STATUS
approved