| Current Path : /usr/share/doc/pari-doc/examples/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : //usr/share/doc/pari-doc/examples/lucas.gp |
lucas(p) =
{ my(u = 4, q = 1<<p - 1);
for(k=3, p, u = (sqr(u)-2) % q);
u == 0;
}