|
| |
|
|
A153581
|
|
Pseudoprimes to bases 2,3,5 and 7 which are not Carmichael numbers (A002997).
|
|
4
|
|
|
|
721801, 8646121, 10403641, 22885129, 36307981, 42702661, 46094401, 48064021, 52204237, 79398901, 80918281, 81954133, 114329881, 116151661, 143168581, 170782921, 188985961, 217145881, 220531501, 282707461, 299671921, 303373801, 326695141, 353815801, 361307521
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Terms congruent to 5 (mod 6): 468950021, 493108481, 659846021, 5936122901, 8144063621, ... - Robert G. Wilson v, Sep 03 2014
Terms not congruent to 1 (mod 12): 468950021, 493108481, 643767931, 659846021, 773131927, 5779230451, 5936122901, 7294056727, 8144063621, 9671001451, ... - Robert G. Wilson v, Sep 03 2014
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
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 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
|
|
|
STATUS
|
approved
|
| |
|
|
