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 A357325 #11 Sep 28 2022 03:53:16 %S A357325 6,15,21,35,250,138,4192,10048,6112,748,20736,5968,802,12256,41728, %T A357325 3592,498,53632,8656,80128,2284,2308,36352,2372,10288,5272,11728, %U A357325 84352,1594,630,6472,48448,6616,50368,1426,1762,102016,172288,32416,8872,2328,9544,19408 %N A357325 a(n) is the unique number m such that A034460(m) = A357324(n). %H A357325 Amiram Eldar, <a href="/A357325/b357325.txt">Table of n, a(n) for n = 1..10000</a> %F A357325 A034460(a(n)) = A357324(n). %t A357325 us[1] = 0; us[n_] := Times @@ (1 + Power @@@ FactorInteger[n]) - n; m = 1500; v = s = Table[0, {m}]; Do[u = us[k]; If[2 <= u <= m, v[[u]]++; s[[u]] = k], {k, 1, m^2}]; s[[Position[v, 1] // Flatten]] %Y A357325 The unitary version of A357313. %Y A357325 Cf. A034460, A057709, A357324. %K A357325 nonn %O A357325 1,1 %A A357325 _Amiram Eldar_, Sep 24 2022