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 A303356 #13 Jul 21 2021 00:44:00
%S A303356 1,2,10,12,120,4080,5280,6720,17472,137280,174720,908160,29621760,
%T A303356 31100160,41879040,89806080,99240960,101391360,143969280,226652160,
%U A303356 466794240,732103680,760488960,779412480,916016640,918382080,951498240,1001172480,1365450240,3151948800,9464663040
%N A303356 Unitary deficient-perfect numbers: unitary deficient numbers k such that 2*k-usigma(k) is a unitary divisor of k, where usigma is the sum of unitary divisors of k (A034448).
%C A303356 The unitary version of A271816.
%e A303356 120 is in the sequence since 2*120 - usigma(120) = 240 - 216 = 24, and 24 is a unitary divisor of 120.
%t A303356 usigma[n_] := If[n == 1, 1, Times @@ (1 + Power @@@ FactorInteger[n])]; aQ[n_] := Module[{d}, d=2n-usigma[n]; If[ d<=0, False, Divisible[n,d] && GCD[d, n/d] == 1 ]]; Select[Range[100000], aQ]
%Y A303356 Cf. A034448, A271816, A303357.
%K A303356 nonn
%O A303356 1,2
%A A303356 _Amiram Eldar_, Apr 22 2018
%E A303356 a(19)-a(31) from _Giovanni Resta_, Apr 26 2018