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 A333103 #4 Mar 07 2020 20:19:18 %S A333103 6,14,62,254,16382,78585,87465,262142,1048574 %N A333103 Quasiperfect cototient numbers: numbers k such that the sum of the iterated cototient function of k is equal to k+1. %C A333103 If m is in A050475 then 2^m - 2 is a term. %C A333103 3*10^8 < a(10) <= 4294967292. %H A333103 Wikipedia, <a href="https://en.wikipedia.org/wiki/Perfect_totient_number">Perfect totient number</a>. %H A333103 Wikipedia, <a href="https://en.wikipedia.org/wiki/Quasiperfect_number">Quasiperfect number</a>. %e A333103 6 is a term since A051953(6) = 4, A051953(4) = 2, A051953(2) = 1, and 4 + 2 + 1 = 7 = 6 + 1. %t A333103 cot[n_] := n - EulerPhi[n]; s[n_] := Plus @@ FixedPointList[cot, n]; Select[Range[10^5], s[#] == 2*# + 1 &] %Y A333103 Cf. A050475, A051953, A082897, A286067, A330273. %K A333103 nonn,more %O A333103 1,1 %A A333103 _Amiram Eldar_, Mar 07 2020