PROG
(MAGMAMagma) [n: n in [1..6*10^5] | (2^n+1) mod n eq 0 ]; // Vincenzo Librandi, Dec 14 2018
(MAGMAMagma) [n: n in [1..6*10^5] | (2^n+1) mod n eq 0 ]; // Vincenzo Librandi, Dec 14 2018
reviewed
approved
proposed
reviewed
editing
proposed
(PARI) for(n=1, 10^9, 6, if(Mod(2, n)^n==-1, print1(n, ", "))); \\ Joerg Arndt, Nov 30 2014
approved
editing
editing
approved
Column k=2 of A333429.
approved
editing
editing
approved
proposed
approved