OFFSET
0,2
COMMENTS
Searched up to 10^10. a(33) >= 1609056138. a(34) >= 2275537110. a(35) >= 4171607222. - Donovan Johnson, May 02 2013
LINKS
M. Lal, Iterates of the unitary totient function, Math. Comp., 28 (1974), 301-302.
FORMULA
a(n) = max{ x : A049865(x) = n} - R. J. Mathar, May 02 2013
MATHEMATICA
(* This is just a verification of recorded data up to a(23), assuming a(n-1)/2 <= a(n) <= 4*a(n-1) *) uphi[n_] := (cnt++; fi = FactorInteger[n]; Times @@ (fi[[All, 1]]^fi[[All, 2]] - 1)); f[n_] := (cnt = 0; NestWhile[uphi, n, # > 1 &]; cnt); a[0] = 1; a[1] = 2; a[n_] := a[n] = For[record = k = a[n-1]/2//Floor, k <= 4*a[n-1], k++, If[f[k] == n, record = k]]; record); Table[Print[a[n]]; a[n], {n, 0, 23}] (* Jean-François Alcover, May 02 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 01 2013
EXTENSIONS
a(16)-a(32) from Donovan Johnson, May 02 2013
STATUS
approved