|
%I #7 Nov 27 2013 12:42:40
%S 534,556,557,580,624,702,710,738,739,740,748,784,789,822,823,841,852,
%T 853,900,912,913,916,924,931,938,960,961,962,1020,1021,1029,1032,1033,
%U 1034,1065,1089,1092,1093,1098,1126,1136
%N Initial values such that if A077080(x)=phi(sigma(x)+phi(x)) is started at these numbers then the sequence does not converge.
%C These terms are only conjectures.
%t 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 Cf. A000010, A000203, A065387, A077080-A077085.
%K nonn
%O 1,1
%A _Labos Elemer_, Oct 28 2002
|
