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 A291174 #8 Aug 31 2017 17:44:05
%S A291174 2,3,6,12,14,26,30,42,186,210,2310,66990,903210,1037190,1138830
%N A291174 Unitary totient superdeficient numbers: numbers n > 1 such that s(n)/n < s(m)/m for all m < n, where s is the sum of iterated uphi (A047994).
%C A291174 The unitary version of A291173.
%t A291174 uphi[n_] := If[n == 1, 1, (Times @@ (Table[#[[1]]^#[[2]] - 1, {1}] & /@ FactorInteger[n]))[[1]]]; Function[s, Flatten[First@Position[s, #] & /@ Union@Rest@FoldList[Max, 0, s]]]@ Table[n/(Total@FixedPointList[uphi, n] - (n-5)), {n, 2, 10^4}]+1 (* after _Michael De Vlieger_ at A286268 and _Alonso del Arte_ at A092693 *)
%Y A291174 Cf. A047994, A291173.
%K A291174 nonn,more
%O A291174 1,1
%A A291174 _Amiram Eldar_, Aug 19 2017