OFFSET
0,1
COMMENTS
131071 is the 6th Mersenne prime, A000668(6).
LINKS
A. Karttunen, Table of n, a(n) for n = 0..131071
Wikipedia, Legendre symbol.
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
KEYWORD
sign,mult
AUTHOR
Antti Karttunen, Sep 21 2009
STATUS
approved