Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Elliptic Curves and Cryptography Questions

• To: mathgroup at smc.vnet.net
• Subject: [mg47670] Re: Elliptic Curves and Cryptography Questions
• From: jlgpardo at yahoo.es (Jose Luis Gomez Pardo)
• Date: Wed, 21 Apr 2004 05:23:08 -0400 (EDT)
• References: <c5tepb$hv0$1@smc.vnet.net> <c603fc$ce8$1@smc.vnet.net> <c62jia$re7$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

jlgpardo at yahoo.es (Jose Luis Gomez Pardo) wrote in message news:<c62jia$re7>
... 
> S = Select[Range[23] - 1, JacobiSymbol[#^3 + # + 4, 23] &#8800; -1 &];
...

Oops, a strange thing happened with cut and paste, please replace the
preceding line by:

S = Select[Range[23] - 1, JacobiSymbol[#^3 + # + 4, 23] != -1 &];

Cheers,

Jose Luis.