Return to lucas.gp CVS log | Up to [local] / OpenXM_contrib / pari-2.2 / examples |
File: [local] / OpenXM_contrib / pari-2.2 / examples / Attic / lucas.gp (download)
Revision 1.1.1.1 (vendor branch), Tue Oct 2 11:16:59 2001 UTC (22 years, 9 months ago) by noro
Imported pari-2.2.1(alpha). |
lucas(p) = { local(u,q); u=4; q=1<<p - 1; for(k=3,p, u = (sqr(u)-2)%q); u == 0 }