login
A181183
a(n) = sigma(tau(n)) (mod 2).
1
1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1
OFFSET
1,1
FORMULA
a(n) = A000035(A062069(n)). - Antti Karttunen, Nov 18 2017
MAPLE
A181183:= n-> (numtheory[sigma](numtheory[tau](n)) mod 2):
seq (A181183(n), n=1..105);
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
Sequence in context: A325321 A255887 A359473 * A295316 A014677 A307425
KEYWORD
nonn
AUTHOR
Jani Melik, Jan 26 2011
STATUS
approved