login
A165476
Legendre symbol (n,131071).
2
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,1
COMMENTS
131071 is the 6th Mersenne prime, A000668(6).
See row 12251 in triangle A226520, A000040(12251) = 131071. - Reinhard Zumkeller, Feb 02 2014
LINKS
MATHEMATICA
a[n_] := JacobiSymbol[n, 2^17 - 1];
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Jan 13 2023 *)
PROG
(Haskell)
a165476 = flip legendreSymbol 131071
-- Where the function legendreSymbol is defined in A097343.
-- Reinhard Zumkeller, Feb 02 2014
CROSSREFS
Partial sums: A165477.
Cf. A097343.
Sequence in context: A165581 A165586 A134824 * A165596 A226523 A070238
KEYWORD
sign,mult
AUTHOR
Antti Karttunen, Sep 21 2009
STATUS
approved