![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to lucas.gp CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari / examples|
Return to lucas.gp CVS log | Up to [local] / OpenXM_contrib / pari / examples |
| File: [local] / OpenXM_contrib / pari / examples / Attic / lucas.gp (download)
Revision 1.1, Sun Jan 9 17:35:30 2000 UTC (24 years, 5 months ago) by maekawa
Initial revision |
lucas(p) =
{
local(u,q); u=4; q=1<<p - 1;
for(k=3,p, u = (sqr(u)-2)%q);
u == 0
}