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 A342923 #13 Feb 25 2022 11:24:52
%S A342923 120,672,963,1036,264768,523776,459818240,1476304896
%N A342923 Numbers k such that A342925(k) = k + 3*A003415(k).
%C A342923 2^33 < a(9) <= A005820(6) = 51001180160.
%t A342923 Select[Range[6*10^5], #3 == #1 + 3 #2 & @@ Prepend[Map[If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]]] &, {#, DivisorSigma[1, #]}], #] &] (* _Michael De Vlieger_, Feb 25 2022 *)
%o A342923 (PARI)
%o A342923 A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A342923 A342925(n) = A003415(sigma(n));
%o A342923 isA342923(n) = (A342925(n)==(n+(3*A003415(n))));
%Y A342923 Cf. A003415, A342922, A342925.
%Y A342923 Cf. A005820 (subsequence).
%K A342923 nonn,more
%O A342923 1,1
%A A342923 _Antti Karttunen_, Apr 08 2021
%E A342923 a(8) from _Antti Karttunen_, Feb 25 2022