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 A360524 #7 Feb 11 2023 02:29:03
%S A360524 6,12,198,240,264,270,396,540,6720,7920,11880,13770,27540,221760,
%T A360524 337440,605880,2500344,6072570,11135520,12145140,267193080,441692160,
%U A360524 1112629770,2225259540,14575841280,48955709880
%N A360524 Numbers k such that A360522(k) = 2*k.
%C A360524 Analogous to perfect numbers (A000396) with A360522 instead of A000203.
%C A360524 a(27) > 10^11, if it exists.
%e A360524 6 is a term since A360522(6) = 12 = 2 * 6.
%t A360524 f[p_, e_] := p^e + e; q[n_] := Times @@ f @@@ FactorInteger[n] == 2*n; Select[Range[10^6], q]
%o A360524 (PARI) is(n) = {my(f = factor(n)); prod(i = 1, #f~, f[i,1]^f[i,2] + f[i,2]) == 2*n;}
%Y A360524 Cf. A000203, A360522.
%Y A360524 Similar sequences: A000396, A002827, A007357, A054979, A322486, A324707.
%K A360524 nonn,more
%O A360524 1,1
%A A360524 _Amiram Eldar_, Feb 10 2023