[BACK]Return to lucas.gp CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari-2.2 / examples
File: [local] / OpenXM_contrib / pari-2.2 / examples / Attic / lucas.gp (download)

Revision 1.1, Tue Oct 2 11:16:59 2001 UTC (22 years, 8 months ago) by noro
Branch: MAIN 

Initial revision

lucas(p) =
{
  local(u,q); u=4; q=1<<p - 1;
  for(k=3,p, u = (sqr(u)-2)%q);
  u == 0
}