A074228 Even bases k for which the smallest (Fermat) pseudoprime greater than k has Moebius function mu = -1.

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

Author

Jani Melik, Sep 25 2002

Keywords

• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007535, A008683, A074485.

Programs

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 *)

Extensions

Corrected and extended by D. S. McNeil, Mar 27 2009

Name corrected by Amiram Eldar, Mar 31 2024