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,1

Links

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

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

Cf. A007535, A008683, A074485.

Sequence in context: A253700 A260922 A054903 * A298505 A253693 A168528

Adjacent sequences: A074225 A074226 A074227 * A074229 A074230 A074231

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