OFFSET
1,1
LINKS
Chris Caldwell, The Prime Glossary, Mersenne number
C. K. Caldwell, "Top Twenty" page, Mersenne cofactor
MATHEMATICA
lst = {}; Do[If[PrimeQ[p] && PowerMod[2, p, 288*p^3 + 196*p^2 + 28*p + 1] == 1, AppendTo[lst, p]], {p, 12694991}]; lst
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Arkadiusz Wesolowski, Nov 15 2013
STATUS
approved