Lucas Pseudoprime

Author

Eric W. Weisstein
May 5, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PrimeNumbers/LucasPseudoprime.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/LucasPseudoprime.html.

©2006 Wolfram Research, Inc. except for portions noted otherwise

Enumeration

Select[Flatten[1+Position[Table[Mod[LucasL[n]-1,n],{n,2,10^5}],0]],!PrimeQ[#]&]//Timing

Select[Flatten[1+Position[Table[Mod[LucasL[n]-1,n],{n,2,10^6}],0]],!PrimeQ[#]&]//Timing