A175863 Numbers k > 1 such that 2^(k-1) == (2*k + 1) (mod k^2).
7, 71, 379, 2659
Offset: 1
Links
- Jan Feitsma, The pseudoprimes below 2^64.
Programs
-
Mathematica
Select[Range[3000],PowerMod[2,#-1,#]==1&&PowerMod[2,#-1,#^2]-1==2*#&] (* Harvey P. Dale, Mar 20 2016 *)
Comments