login
A231918
Primes p such that (2*p + 1)*(8*p + 1)*(18*p + 1) divides 2^p - 1.
2
50411, 116411, 495611, 705119, 730451, 816839, 1074851, 1851851, 2263619, 2827679, 3355991, 3979511, 4513979, 5108639, 5347211, 5654651, 6098759, 6673391, 7153199, 7862579, 8497451, 8754131, 10763939, 10852739, 11649611, 12523499, 12561551, 12694991
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
Subsequence of A231916.
Sequence in context: A251466 A267252 A166760 * A029823 A302902 A317285
KEYWORD
nonn,less
AUTHOR
STATUS
approved