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 A230203 #21 Apr 04 2024 02:16:33
%S A230203 5,7,9,11,13,17,19,21,23,25,26,27,29,31,33,35,37,38,39,41,43,45,47,49,
%T A230203 51,52,53,55,56,57,59,61,62,63,65,67,69,71,73,74,75,76,77,79,81,82,83,
%U A230203 85,86,87,88,89,91,93,95,97,99,101,103,104,105,107,109,111,112,113,115,116,117,119
%N A230203 Numbers k such that sigma(phi(k)) > k.
%C A230203 It seems that the odd number k is not in the sequence if and only if k+2 is a Fermat prime (A019434).
%H A230203 Amiram Eldar, <a href="/A230203/b230203.txt">Table of n, a(n) for n = 1..10000</a>
%p A230203 for n do if sigma(phi(n))>n then print{n} fi od:
%t A230203 Select[Range[150],DivisorSigma[1,EulerPhi[#]]>#&] (* _Harvey P. Dale_, Apr 14 2019 *)
%o A230203 (PARI) is(k) = sigma(eulerphi(k)) > k; \\ _Amiram Eldar_, Apr 04 2024
%Y A230203 Cf. A000010 (phi), A000203 (sigma).
%Y A230203 Cf. A230201, A001229, A018784, A019434, A066694, A227011, A227927, A062402, A230203, A018784.
%K A230203 nonn
%O A230203 1,1
%A A230203 _Vladimir Letsko_, Oct 11 2013