%I #13 Mar 31 2024 02:08:21
%S 104,148,164,190,194,230,254,272,284,344,348,356,358,384,388,398,428,
%T 434,442,448,454,464,478,482,490,508,520,554,556,560,568,586,594,598,
%U 608,614,626,644,650,652,662,664,704,708,714,740,742,758,776,794,796
%N Even bases k for which the smallest (Fermat) pseudoprime greater than k has Moebius function mu = -1.
%H Amiram Eldar, <a href="/A074228/b074228.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 *)
%Y Cf. A007535, A008683, A074485.
%K easy,nonn
%O 1,1
%A _Jani Melik_, Sep 25 2002
%E Corrected and extended by _D. S. McNeil_, Mar 27 2009
%E Name corrected by _Amiram Eldar_, Mar 31 2024
|