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 A122903 #8 Nov 11 2024 05:25:14 %S A122903 1,3,4,12,70,90,210 %N A122903 Numbers m such that in Z/mZ the number of squares is equal to the number of invertible elements. %C A122903 Numbers m such that A000224(m) = A000010(m). %t A122903 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] = True; q[k_] := Times @@ f @@@ FactorInteger[k] == 1; Select[Range[210], q] (* _Amiram Eldar_, Nov 11 2024 *) %Y A122903 Cf. A000010, A000224, A122904, A122905, A122906, A122907. %K A122903 fini,full,nonn %O A122903 1,2 %A A122903 _Max Alekseyev_, Sep 18 2006