A231918 Primes p such that (2*p + 1)*(8*p + 1)*(18*p + 1) divides 2^p - 1.

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

Author

Arkadiusz Wesolowski, Nov 15 2013

Keywords

• nonn
• less

Links

• Chris Caldwell, The Prime Glossary, Mersenne number
• C. K. Caldwell, "Top Twenty" page, Mersenne cofactor

Crossrefs

Subsequence of A231916.

Cf. A001348, A231917.

Programs

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