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 A092586 #18 Jun 20 2025 10:45:17
%S A092586 7,87,231,463,617,691,751,855,1059,1127,2795,4819,11999,18527,22481,
%T A092586 75311,121939,232901,256751,288883,313919,371519,845831,1285841,
%U A092586 1762799,1815167,7195199,9096191,40324121,93070943,99388823,113140151,238072223,487394063
%N A092586 Numbers k such that sigma(phi(k))-phi(sigma(k)) is nonzero and is divisible by (k+1), that is A065395(k)/(k+1) = (phi(sigma(k))-sigma(phi(k)))/(k+1) is a nonzero integer.
%e A092586 (sigma(phi(x))-phi(sigma(x)))/(x+1) equals 1 if x=7; is 2 if x=463; is 3 if x=4819.
%t A092586 f[ x_] := EulerPhi[ DivisorSigma[1, x]] - DivisorSigma[1, EulerPhi[x]]; t = {}; Do[ s = f[n]; If[ s != 0 && Mod[ s, n + 1] == 0, Print[n]; AppendTo[t, n]], {n, 2*10^8}]; t
%Y A092586 Cf. A033632, A092584-A092588, A000203, A000010, A065395.
%K A092586 nonn
%O A092586 1,1
%A A092586 _Labos Elemer_, Mar 01 2004
%E A092586 Edited and extended by _Robert G. Wilson v_, Mar 03 2004
%E A092586 a(33)-a(34) from _Donovan Johnson_, Mar 04 2013