proposed
approved
proposed
approved
editing
proposed
Select[Prime[Range[1000000]], PowerMod[15, # - 1, #^2] == 1 &] (* _Robert Price_, May 17 2019 *)
PowerMod[15, # - 1, #^2] == 1 &] (* Robert Price, May 17 2019 *)
proposed
editing
editing
proposed
Select[Prime[Range[1000000]],
PowerMod[15, # - 1, #^2] == 1 &] (* Robert Price, May 17 2019 *)
approved
editing
editing
approved
Amir Akbary and Sahar Siavashi, <a href="http://math.colgate.edu/~integers/s3/s3.Abstract.html">The Largest Known Wieferich Numbers</a>, INTEGERS, 18(200182018), A3. See Table 1 p. 5.
approved
editing
proposed
approved
editing
proposed
Amir Akbary and Sahar Siavashi, <a href="http://math.colgate.edu/~integers/s3/s3.Abstract.html">The Largest Known Wieferich Numbers</a>, INTEGERS, 18(20018), A3. See Table 1 p. 5.
approved
editing