A015940 Positive integers n such that 2^n == -3 (mod n).
1, 5, 917, 3223, 62911, 326329, 395819, 33504053, 4446226763, 17556128765, 141613728437, 5259417592253, 113837290408523
Offset: 1
Links
- OEIS Wiki, 2^n mod n
Crossrefs
Cf. A050259.
Programs
-
Mathematica
Do[ If[ PowerMod[ 2, n, n ] + 3 == n, Print[n]], { n, 1, 10^9, 2 } ]
Extensions
Corrected and extended by Olivier Wittenberg, May 23 2004.
a(10)-a(13) from Max Alekseyev, Aug 01 2011
Comments