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 A077085 #10 May 05 2025 20:28:24
%S A077085 534,556,557,580,624,702,710,738,739,740,748,784,789,822,823,841,852,
%T A077085 853,900,912,913,916,924,931,938,960,961,962,1020,1021,1029,1032,1033,
%U A077085 1034,1065,1089,1092,1093,1098,1126,1136
%N A077085 Initial values such that if A077080(x)=phi(sigma(x)+phi(x)) is started at these numbers then the sequence does not converge.
%C A077085 These terms are only conjectures.
%C A077085 These terms survive 1000 iterations. - _Sean A. Irvine_, May 05 2025
%t A077085 f[x_] := EulerPhi[DivisorSigma[1, x]+EulerPhi[x]] Do[s=Part[NestList[f, n, 100], 100]; If[Greater[s, 10000000], Print[{n, s}]], {n, 1, 10000}]
%Y A077085 Cf. A000010, A000203, A065387, A077080, A077081, A077082, A077083, A077084.
%K A077085 nonn
%O A077085 1,1
%A A077085 _Labos Elemer_, Oct 28 2002