A343679 Lucasian pseudoprimes: composite numbers k such that 2^(k-1) == k+1 (mod k(2k+1)).
150851, 452051, 1325843, 1441091, 4974971, 5016191, 15139199, 19020191, 44695211, 101276579, 119378351, 128665319, 152814531, 187155383, 203789951, 223782263, 307367171, 387833531, 392534231, 470579831, 505473263, 546748931, 626717471, 639969891, 885510239, 974471243, 1147357559
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[10^7], CompositeQ[#] && PowerMod[2, #-1, #*(2*#+1)] == #+1 &] (* Amiram Eldar, Apr 26 2021 *)
Extensions
More terms from Amiram Eldar, Apr 26 2021
Comments