|
%I #14 Sep 22 2016 02:22:31
%S 1,5,917,3223,62911,326329,395819,33504053,4446226763,17556128765,
%T 141613728437,5259417592253,113837290408523
%N Positive integers n such that 2^n == -3 (mod n).
%C No other terms below 10^16.
%C Larger term: 18468744643735483963902321985787. - _Max Alekseyev_, Aug 01 2011
%H OEIS Wiki, <a href="/wiki/2^n mod n">2^n mod n</a>
%t Do[ If[ PowerMod[ 2, n, n ] + 3 == n, Print[n]], { n, 1, 10^9, 2 } ]
%Y Cf. A050259.
%K nonn,more
%O 1,2
%A _Robert G. Wilson v_
%E Corrected and extended by Olivier Wittenberg, May 23 2004.
%E a(10)-a(13) from _Max Alekseyev_, Aug 01 2011
|
