A165476 Legendre symbol (n,131071).

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

Author

Antti Karttunen, Sep 21 2009

Keywords

• sign
• mult

Comments

131071 is the 6th Mersenne prime, A000668(6).

See row 12251 in triangle A226520, A000040(12251) = 131071. - Reinhard Zumkeller, Feb 02 2014

Links

• A. Karttunen, Table of n, a(n) for n = 0..131071
• Wikipedia, Legendre symbol.

Crossrefs

Partial sums: A165477.

Cf. A097343.

Programs

Haskell

a165476 = flip legendreSymbol 131071
-- Where the function legendreSymbol is defined in A097343.
-- Reinhard Zumkeller, Feb 02 2014

Mathematica

a[n_] := JacobiSymbol[n, 2^17 - 1];
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Jan 13 2023 *)