Poulet Number

Author

Eric W. Weisstein
November 17, 2005

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

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

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

Enumerattion

Select[Flatten[Position[Table[PowerMod[2,n-1,n],{n,10^4}],1]],!PrimeQ[#]&]

Counts

(psp2=Select[Flatten[Position[Table[PowerMod[2,n-1,n],{n,10^8}],1]],!PrimeQ[#]&]);//Timing

Table[Count[psp2,_?(#<10^n&)],{n,6}]