%I #3 Mar 31 2012 14:39:59
%S -1,1,1,0,0,-1,0,-1,0,0,1,-1,0,1,1,0,0,-1,0,1,0,0,0,1,0,0,1,0,0,1,0,1,
%T 0,0,1,-1,0,1,-1
%N Moebius function applied to A053422.
%p Ankst0 := proc(n); if (n=0) then RETURN(0); fi; (10^n - 1)/9; end; Ankst := proc(n); n*Ankst0(n); end; [seq(mobius(Ankst(i)),i=0..38)];
%Y Cf. A053422.
%K easy,sign
%O 0,1
%A _Jani Melik_, Oct 01 2002