|
|
A090098
|
|
Bases such that the smallest prime-power-pseudoprime is belonging to equals 25.
|
|
3
|
|
|
7, 18, 24, 32, 43, 51, 68, 74, 76, 99, 124, 126, 132, 151, 168, 174, 176, 182, 207, 218, 232, 243, 268, 274, 276, 282, 299, 318, 324, 326, 351, 374, 376, 382, 399, 407, 418, 426, 432, 443, 468, 474, 482, 499, 507, 518, 524, 526, 543, 551, 574, 576, 582, 599, 607
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Values of x such that A090096(x) = 25.
|
|
LINKS
|
|
|
MATHEMATICA
|
pspQ[n_, b_] := CompositeQ[n] && PowerMod[b, n - 1, n ] == 1 ; aQ[n_]:=pspQ[25, n] && AllTrue[{4, 8, 9, 16}, !pspQ[#, n] &]; Select[Range[1000], aQ] (* Amiram Eldar, Sep 09 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|