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 A238231 #8 Mar 26 2014 06:22:56 %S A238231 376,594,846,1178,1222,46498,65198 %N A238231 Numbers n such that if x=phi(n)*tau(n)-sigma(n)-n then n=phi(x)*tau(x)-sigma(x)-x. %C A238231 a(8) > 2*10^9. - _Giovanni Resta_, Mar 26 2014 %e A238231 Fixed points: 376,... %e A238231 phi(594) = 180, tau(594) = 16, sigma(594) = 1440 and 180*16 - 1440 - 594 = 846. %e A238231 phi(846) = 276, tau(846) = 12, sigma(846) = 1872 and 276*12 - 1872 - 846 = 594. %p A238231 with(numtheory); P:=proc(q)local a,n; %p A238231 for n from 1 to q do a:=phi(n)*tau(n)-sigma(n)-n; %p A238231 if a>0 and phi(a)*tau(a)-sigma(a)-a=n then print(n); %p A238231 fi; od; end: P(10^6); %Y A238231 Cf. A000005, A000010, A000203, A238225-A238230. %K A238231 nonn,more %O A238231 1,1 %A A238231 _Paolo P. Lava_, Feb 20 2014