|
%I #24 Jun 25 2019 05:41:19
%S 721801,8646121,10403641,22885129,36307981,42702661,46094401,48064021,
%T 52204237,79398901,80918281,81954133,114329881,116151661,143168581,
%U 170782921,188985961,217145881,220531501,282707461,299671921,303373801,326695141,353815801,361307521
%N Pseudoprimes to bases 2,3,5 and 7 which are not Carmichael numbers (A002997).
%C Terms congruent to 5 (mod 6): 468950021, 493108481, 659846021, 5936122901, 8144063621, ... - _Robert G. Wilson v_, Sep 03 2014
%C Terms not congruent to 1 (mod 12): 468950021, 493108481, 643767931, 659846021, 773131927, 5779230451, 5936122901, 7294056727, 8144063621, 9671001451, ... - _Robert G. Wilson v_, Sep 03 2014
%H Amiram Eldar, <a href="/A153581/b153581.txt">Table of n, a(n) for n = 1..1077</a> (terms 1..125 from Robert G. Wilson v)
%t fQ[n_] := ! PrimeQ[n] && PowerMod[2, n - 1, n] == 1 && PowerMod[3, n - 1, n] == 1 && PowerMod[5, n - 1, n] == 1 && PowerMod[7, n - 1, n] == 1 && Mod[n, CarmichaelLambda[n]] != 1; Select[ Range[ 365000000], fQ] (* _Ray Chandler_, Dec 28 2008; corrected by _Robert G. Wilson v_, Sep 01 2014 *)
%Y Cf. A002997, A083737, A122780, A153508, A153513, A153514, A153515, A153519, A153580.
%K nonn
%O 1,1
%A _Ray Chandler_ & _Artur Jasinski_, Dec 28 2008
%E Terms a(8) and onward from _Robert G. Wilson v_, Sep 01 2014
|
