login
A074228
Even bases k for which the smallest (Fermat) pseudoprime greater than k has Moebius function mu = -1.
2
104, 148, 164, 190, 194, 230, 254, 272, 284, 344, 348, 356, 358, 384, 388, 398, 428, 434, 442, 448, 454, 464, 478, 482, 490, 508, 520, 554, 556, 560, 568, 586, 594, 598, 608, 614, 626, 644, 650, 652, 662, 664, 704, 708, 714, 740, 742, 758, 776, 794, 796
OFFSET
1,1
LINKS
MATHEMATICA
q[n_] := Module[{k = n + 1}, While[! CoprimeQ[n, k] || PrimeQ[k] || PowerMod[n, k - 1, k] != 1, k++]; MoebiusMu[k] == -1]; Select[Range[2, 800, 2], q] (* Amiram Eldar, Mar 31 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jani Melik, Sep 25 2002
EXTENSIONS
Corrected and extended by D. S. McNeil, Mar 27 2009
Name corrected by Amiram Eldar, Mar 31 2024
STATUS
approved