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 A333104 #7 Mar 07 2020 20:19:29
%S A333104 10,22,98,118,230,266,1452,88894,114214,1274198,51675986,61177358,
%T A333104 82986118
%N A333104 Unitary quasiperfect cototient numbers: numbers k such that the sum of the iterated unitary cototient function of k is equal to k+1.
%C A333104 a(14) > 10^9.
%e A333104 10 is a term since A323410(10) = 6, A323410(6) = 4, A323410(4) = 1 and 6 + 4 + 1 = 11 = 10 + 1.
%t A333104 uphi[0] = 0; uphi[1] = 1; uphi[n_] := (Times @@ (Table[#[[1]]^#[[2]] - 1, {1}] & /@ FactorInteger[n]))[[1]]; ucot[n_] := n - uphi[n]; Select[Range[10^4], Plus @@ FixedPointList[ucot, #] == 2*# + 1 &]
%Y A333104 Cf. A082897, A286067, A323410, A330273, A333103.
%K A333104 nonn,more
%O A333104 1,1
%A A333104 _Amiram Eldar_, Mar 07 2020