|
Search: id:A077085
|
|
|
| A077085 |
|
Initial values such that if A077080()=Phi[Sigma()+Phi()] is started at these numbers then the sequence does not converge. |
|
+0
6
|
|
| 534, 556, 557, 580, 624, 702, 710, 738, 739, 740, 748, 784, 789, 822, 823, 841, 852, 853, 900, 912, 913, 916, 924, 931, 938, 960, 961, 962, 1020, 1021, 1029, 1032, 1033, 1034, 1065, 1089, 1092, 1093, 1098, 1126, 1136
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
These terms are only conjectures.
|
|
MATHEMATICA
|
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}]
|
|
CROSSREFS
|
Cf. A000010, A000203, A065387, A077080-A077085.
Sequence in context: A048055 A067803 A098258 this_sequence A067723 A059949 A077076
Adjacent sequences: A077082 A077083 A077084 this_sequence A077086 A077087 A077088
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Oct 28 2002
|
|
|
Search completed in 0.002 seconds
|
