A096849 If f(x) = phi(sigma(x)) is iterated starting from these numbers, then the start-value never returns. These are the transient terms of this iteration. Never occur in terminal cycles.
3, 5, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83
Offset: 1
Keywords
Examples
All odd and certain even integers belong here.
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Flatten@ Table[Function[s, If[Length@ # > 0, First@ #, #] &@ Keys@ KeySelect[s, Length@ Lookup[s, #] == 1 &]]@ PositionIndex@ NestList[EulerPhi@ DivisorSigma[1, #] &, n, 10^2], {n, 71}] (* Michael De Vlieger, Jul 24 2017 *)