A112984 Numbers k such that 2^k mod k-1 is odd.
4, 10, 16, 28, 36, 50, 56, 76, 82, 106, 116, 120, 122, 134, 144, 162, 172, 176, 188, 190, 204, 216, 218, 232, 236, 244, 248, 254, 256, 262, 274, 280, 290, 296, 298, 300, 324, 334, 336, 344, 352, 364, 372, 396, 404, 406, 414, 426, 438, 452, 456, 474, 476, 484
Offset: 1
Keywords
Programs
-
Mathematica
Select[ 2Range[250], OddQ[ PowerMod[2, #, #-1]] &] (* Robert G. Wilson v, Oct 10 2005 *)
Extensions
More terms from Robert G. Wilson v, Oct 10 2005