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 A122905 #14 Nov 11 2024 05:26:17 %S A122905 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62,66,74,78,82,86,94,98, %T A122905 102,106,114,118,122,134,138,142,146,150,158,162,166,174,178,186,194, %U A122905 202,206,214,218,222,226,242,246,250,254,258,262,274,278,282,294,298,302 %N A122905 Numbers m such that in Z/mZ the number of squares is strictly greater than the number of invertible elements. %C A122905 Numbers m such that A000224(m) > A000010(m). %H A122905 Ivan Neretin, <a href="/A122905/b122905.txt">Table of n, a(n) for n = 1..10000</a> %t A122905 Select[Range@310, Length@Union@Mod[Range[#]^2, #] > EulerPhi[#] &] (* _Ivan Neretin_, Dec 14 2016 *) %t A122905 f1[p_, e_] := Floor[p^(e+1)/(2p + 2)] + 1; f1[2, e_] := Floor[2^e/6] + 2; f[p_, e_] := f1[p, e]/((p-1) * p^(e-1)); q[1] = False; q[k_] := Times @@ f @@@ FactorInteger[k] > 1; Select[Range[300], q] (* _Amiram Eldar_, Nov 11 2024 *) %Y A122905 Complement of A122906 in positive integers. %Y A122905 Cf. A000010, A000224, A122903, A122904, A122907. %K A122905 nonn %O A122905 1,1 %A A122905 _Max Alekseyev_, Sep 18 2006