%I A103131
%S A103131 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%T A103131 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%U A103131 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
%V A103131 0,-1,-1,-1,-1,-1,-1,1,-1,-1,-1,1,-1,-1,1,1,-1,-1,-1,1,1,-1,-1,1,-1,-1,
               -1,1,-1,1,-1,1,
%W A103131 1,-1,1,1,-1,-1,1,1,-1,1,-1,1,1,-1,-1,1,-1,-1,1,1,-1,-1,1,1,1,-1,-1,1,
               -1,-1,1,1,1,1,-1,
%X A103131 1,1,1,-1,1,-1,-1,1,1,1,1,-1,1,-1,-1,-1,1,1,-1,1,1,-1,1,1,1,1,-1,1,1,-1,
               -1,1,1,-1,1
%N A103131 Minimal residue (in absolute value) of A001783(n) (mod n).
%H A103131 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Wilsonstheorem.html">Wilson's theorem</a>
%F A103131 For n>1, a(n)=-1 if A060594(n)=2 or equivalently if n is in A033948; 
               otherwise a(n)=1. - Max Alekseyev, May 26 2009
%Y A103131 Cf. A001783.
%Y A103131 Sequence in context: A165476 A165596 A070238 this_sequence A057427 A057428 
               A062157
%Y A103131 Adjacent sequences: A103128 A103129 A103130 this_sequence A103132 A103133 
               A103134
%K A103131 sign
%O A103131 1,1
%A A103131 Eric Weisstein (eric(AT)weisstein.com), Jan 23, 2005
%E A103131 Definition rewritten by Max Alekseyev, May 26 2009