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

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, 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

Offset

1,1

Links

Table of n, a(n) for n=1..107.

Mathematica

Table[KroneckerSymbol[n, n+1], {n, 110}] (* Harvey P. Dale, Aug 18 2014 *)

Prog

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

Crossrefs

Sequence in context: A359792 A362927 A362928 * A096809 A131561 A110515

Adjacent sequences: A071932 A071933 A071934 * A071936 A071937 A071938

Keyword

easy,sign

Author

Benoit Cloitre, Jun 14 2002

Status

approved