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 A317477 #8 Aug 19 2018 18:13:02
%S A317477 1,1512,624937680,808742880,87348127500,139103775360,150780265560,
%T A317477 261880857000
%N A317477 Unitary harmonic numbers m such that the harmonic mean of the unitary divisors of m is also a unitary harmonic number.
%C A317477 The harmonic means of the unitary divisors of the terms are 1, 6, 45, 45, 45, 90, 45, 90.
%e A317477 1512 is in the sequence since the harmonic mean of its divisors is 6 and 6 is also a unitary harmonic number.
%t A317477 usigma[n_] := If[n == 1, 1, Times @@ (1 + Power @@@ FactorInteger[n])]; ud[n_] := 2^PrimeNu[n]; uhQ[n_] := IntegerQ[n*ud[n]/usigma[n]]; uhuhQ[n_] := Module[{m = n*ud[n]/usigma[n]}, IntegerQ[m] && uhQ[m]]; Do[If[uhuhQ[n], Print[n]], {n, 1, 10^11}]
%Y A317477 Cf. A006086, A317476.
%K A317477 nonn,more
%O A317477 1,2
%A A317477 _Amiram Eldar_, Jul 29 2018