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 A370881 #11 Jul 05 2025 09:55:08
%S A370881 2,60,84,231
%N A370881 Numbers k >= 1 such that k = A008472(k)*A066328(k).
%C A370881 a(5) > 10^7, if it exists. - _Amiram Eldar_, Jul 05 2025
%e A370881 k = 60: A008472(60)*A066328(60) = 10*6 = 60 thus k = 60 is a term.
%t A370881 q[n_] := n == Times @@ Total[{#, PrimePi[#]} & /@ FactorInteger[n][[;; , 1]]]; Select[Range[250], q] (* _Amiram Eldar_, Jul 05 2025 *)
%o A370881 (PARI) isok(k) = my(p = factor(k)[, 1]); vecsum(p) * vecsum(apply(x -> primepi(x), p)) == k; \\ _Amiram Eldar_, Jul 05 2025
%Y A370881 Cf. A008472, A066328.
%K A370881 nonn,hard,more
%O A370881 1,1
%A A370881 _Ctibor O. Zizka_, Mar 04 2024