A071936 - OEIS

%I #5 Mar 30 2012 18:39:03

%S 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 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 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,1,1,1,1,1,1,-1,1,1,1,1,1,1,1,-1,1,1,1,1,1,1

%N K(n+1,n) where K(x,y) is the Kronecker symbol (x/y).

%F If n==2 (mod(8)) a(n)=-1 a(n)=1 otherwise

%o (PARI) for(n=1,150,print1(kronecker(n+1,n),","))

%K easy,sign

%O 1,1

%A _Benoit Cloitre_, Jun 14 2002