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 A305058 #32 Oct 11 2022 05:49:52
%S A305058 6,12,80,160,312,352,928,1760,1792,3264,3960,7104,7648,13680,15984,
%T A305058 16224,17760,19712,20352,20800,21088,22368,23184,25728,25888,26240,
%U A305058 27072,29664,47952,57312,60048,62976,67072,73152,74368,77664,78144,81568,85056,85392,86688
%N A305058 Totients t such that the number of divisors of t equals the number of solutions of phi(x) = t.
%C A305058 For known terms gcd({phi(x) = t}) = 1.
%C A305058 This is not always the case, the smallest counterexample being t=4598784, a term of A303745, which has gcd({phi(x) = t}) = 1997. - _Daniel Suteu_, Dec 01 2018
%C A305058 Conjecture: Every term divides one or more subsequent terms.
%C A305058 Numbers n for which A000005(n) = A014197(n), positions of zeros in A322019. - _Antti Karttunen_, Dec 01 2018
%H A305058 Daniel Suteu, <a href="/A305058/b305058.txt">Table of n, a(n) for n = 1..10000</a>
%F A305058 tau(a(n)) = #{phi(x) = a(n)}.
%e A305058 6 is a term because the divisors of 6 are {1,2,3,6} and the solutions of phi(x) = 6 are {7,9,14,18}.
%e A305058 12 is a term because the divisors of 12 are {1,2,3,4,6,12} and the solutions of phi(x) = 12 are {13,21,26,28,36,42}.
%t A305058 A014197[1] = 2; A014197[m_?OddQ] = 0; A014197[m_] := Module[{p, nmax, n, k}, p = Select[ Divisors[m]+1, PrimeQ]; nmax = m*Times @@ (p/(p - 1)); n = m; k = 0; While[n <= nmax, If[EulerPhi[n] == m, k++]; n++]; k]; aQ[n_] := (DivisorSigma[0 ,n] == A014197[n]); Select[Range[1000], aQ] (* _Amiram Eldar_, Dec 02 2018 after _Jean-François Alcover_ at A014197 *)
%o A305058 (Perl) use ntheory ':all'; for (1..10**5) { print "$_\n" if inverse_totient($_) == divisor_sum($_, 0) } # _Daniel Suteu_, Dec 01 2018
%o A305058 (PARI)
%o A305058 A014197(n, m=1) = { n==1 && return(1+(m<2)); my(p, q); sumdiv(n, d, if( d>=m && isprime(d+1), sum( i=0, valuation(q=n\d, p=d+1), A014197(q\p^i, p))))}; \\ From A014197
%o A305058 isA305058(n) = (numdiv(n) == A014197(n)); \\ _Antti Karttunen_, Dec 01 2018
%Y A305058 Cf. A000005, A000010, A014197, A320000, A322019, A303745.
%K A305058 nonn
%O A305058 1,1
%A A305058 _Torlach Rush_, May 24 2018
%E A305058 More terms from _Daniel Suteu_, Dec 01 2018