Proth Prime

Author

Eric W. Weisstein
January 24, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/ProthPrime.nb.

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

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

Code

ProthQ[x_]:=Module[{n=IntegerExponent[x-1,2],k},
Positive[n]&&OddQ[k=(x-1)/2^n]&&2^n>k
]

Enumeration

proth=Select[Range[15000],ProthQ[#]&&PrimeQ[#]&]