OFFSET
0,1
LINKS
MATHEMATICA
JacobiSymbol[Range[0, 100], 28657] (* Paolo Xausa, May 26 2026 *)
PROG
(PARI) a(n)=kronecker(n, 28657) \\ Charles R Greathouse IV, May 26 2026
CROSSREFS
KEYWORD
sign,mult,easy
AUTHOR
Antti Karttunen, Sep 21 2009
STATUS
approved
