%I A066428
%S A066428 8,12,18,20,27,28,32,36,44,45,48,50,52,63,64,68,75,76,80,92,98,99,100,
%T A066428 112,116,117,120,124,125,144,147,148,153,162,164,168,171,172,175,176,
%U A066428 188,196,207,208,212,216,225,236,242,243,244,245,261,264,268,270,272
%N A066428 Numbers with mu = 0 and infinitary MoebiusMu = +1 (sum of binary digits 
               of prime exponents is even).
%e A066428 28 is in this sequence because its prime decomposition is 2^2* 7^1, it 
               is not square-free and the binary digits of "2" and "1" add up to 
               2, an even number.
%t A066428 iMoebiusMu[ n_ ] := Switch[ MoebiusMu[ n ], 1, 1, -1, -1, 0, If[ OddQ[ 
               Plus@@(DigitCount[ Last[ Transpose[ FactorInteger[ n ] ]], 2, 1 ]) 
               ], -1, 1 ]]; Select[ Range[ 400 ], MoebiusMu[ # ]===0 && iMoebiusMu[ 
               # ]===+1 & ]
%Y A066428 Cf. A064179, A066427.
%Y A066428 Sequence in context: A145784 A014612 A046369 this_sequence A054397 A075818 
               A090738
%Y A066428 Adjacent sequences: A066425 A066426 A066427 this_sequence A066429 A066430 
               A066431
%K A066428 easy,nonn
%O A066428 1,1
%A A066428 Wouter Meeussen (wouter.meeussen(AT)pandora.be), Dec 27 2001