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 A357324 #15 Sep 28 2022 03:53:19
%S A357324 6,9,11,13,128,150,164,222,224,332,338,390,404,416,420,458,510,548,
%T A357324 558,570,576,582,584,598,660,668,750,788,800,810,818,822,836,852,878,
%U A357324 884,926,930,1046,1118,1200,1202,1230,1244,1250,1260,1284,1298,1304,1382,1422,1472,1478
%N A357324 Numbers k such that there is a unique m for which the sum of the aliquot unitary divisors of m (A034460) is k.
%C A357324 Numbers k such that A324938(k) = 1.
%H A357324 Amiram Eldar, <a href="/A357324/b357324.txt">Table of n, a(n) for n = 1..10000</a>
%F A357324 a(n) = A034460(A357325(n)).
%t A357324 us[1] = 0; us[n_] := Times @@ (1 + Power @@@ FactorInteger[n]) - n; m = 1500; v = Table[0, {m}]; Do[u = us[k]; If[2 <= u <= m, v[[u]]++], {k, 1, m^2}]; Position[v, 1] // Flatten
%Y A357324 The unitary version of A057709.
%Y A357324 Cf. A034460, A063948, A324938, A357325.
%K A357324 nonn
%O A357324 1,1
%A A357324 _Amiram Eldar_, Sep 24 2022