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 A353039 #12 Mar 05 2023 05:21:23
%S A353039 1,6,60,420,630,5460,8190,16632,64260,143640,172900,598500,716625,
%T A353039 790398,791700,1182384,1187550,1530144,2708160,4277448,5314680,
%U A353039 6284250,6397300,6741630,14619150,15214500,22144500,24315984,87966648,93284100,161670600,165197760,232517250
%N A353039 Unitary arithmetic numbers k whose mean unitary divisor is a unitary divisor of k.
%C A353039 Also, unitary harmonic numbers k whose harmonic mean of the unitary divisors of k is a unitary divisor of k.
%H A353039 Amiram Eldar, <a href="/A353039/b353039.txt">Table of n, a(n) for n = 1..84</a>
%e A353039 6 is a term since the arithmetic mean of its unitary divisors, {1, 2, 3, 6}, is 3, and 3 is also a unitary divisor of 6.
%t A353039 q[n_] := Module[{f = FactorInteger[n], d, s, m}, d = 2^Length[f]; s = Times @@ (1 + Power @@@ f); m = s/d; IntegerQ[m] && Divisible[n, m] && CoprimeQ[m, n/m]]; Select[Range[10^6], q]
%Y A353039 Subsequence of A006086 and A103826.
%Y A353039 Cf. A007340.
%K A353039 nonn
%O A353039 1,2
%A A353039 _Amiram Eldar_, Apr 19 2022