This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A074228 #13 Mar 31 2024 02:08:21
%S A074228 104,148,164,190,194,230,254,272,284,344,348,356,358,384,388,398,428,
%T A074228 434,442,448,454,464,478,482,490,508,520,554,556,560,568,586,594,598,
%U A074228 608,614,626,644,650,652,662,664,704,708,714,740,742,758,776,794,796
%N A074228 Even bases k for which the smallest (Fermat) pseudoprime greater than k has Moebius function mu = -1.
%H A074228 Amiram Eldar, <a href="/A074228/b074228.txt">Table of n, a(n) for n = 1..10000</a>
%t A074228 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 A074228 Cf. A007535, A008683, A074485.
%K A074228 easy,nonn
%O A074228 1,1
%A A074228 _Jani Melik_, Sep 25 2002
%E A074228 Corrected and extended by _D. S. McNeil_, Mar 27 2009
%E A074228 Name corrected by _Amiram Eldar_, Mar 31 2024