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 A084820 #11 Feb 16 2025 08:32:49 %S A084820 1,3,5,7,9,11,13,17,19,21,23,25,27,29,31,33,35,37,39,41,43,47,49,51, %T A084820 53,55,57,59,61,65,67,69,71,73,77,79,81,83,85,87,89,91,93,95,97,99, %U A084820 101,103,107,109,111,113,115,117,119,121,123,125,127,129,131,133,137 %N A084820 Numbers n such that n, sigma(n) and phi(n) form an integer triangle, where sigma=A000203 is the divisor sum and phi=A000010 the totient. %C A084820 a(n)<=A000203(a(n))+A000010(a(n)), A000203(a(n))<=a(n)+A000010(a(n)), A000010(a(n))<=a(n)+A000203(a(n)); values are odd, see A084821 for odd numbers which are not in the sequence. %H A084820 Amiram Eldar, <a href="/A084820/b084820.txt">Table of n, a(n) for n = 1..10000</a> %H A084820 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DivisorFunction.html">Divisor Function</a> %H A084820 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TotientFunction.html">Totient Function</a> %e A084820 n=5, a(5)=9: phi(9)=6, sigma(9)=13: (6,9,13)=(A070080(176), A070081(176), A070082(176)). %t A084820 Select[Range[1, 140, 2], DivisorSigma[1, #] < EulerPhi[#] + # &] (* _Amiram Eldar_, Sep 12 2019 *) %o A084820 (PARI) is(n)=eulerphi(n)+n>sigma(n) \\ _Charles R Greathouse IV_, Feb 19 2013 %Y A084820 Cf. A046022. %K A084820 nonn %O A084820 1,2 %A A084820 _Reinhard Zumkeller_, Jun 04 2003