OFFSET
1,3
COMMENTS
Iterating from any n as a(n), a(a(n)), a(a(a(n))), etc. reaches 1 after A056239(n) iterations.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
a252462[n_Integer] := Block[{a008578, a052126, a061395, a},
a008578[x_] := If[x == 1, 1, Prime[x - 1]];
a052126[x_] := If[x == 1, 1, x/FactorInteger[x][[-1]][[1]]];
a061395[x_] := PrimePi[FactorInteger[x][[-1]][[1]]];
a[1] = 1;
a[x_] := a008578[a061395[x]]*a052126[x];
Array[a, n]]; a252462[84] (* Michael De Vlieger, Dec 21 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 20 2014
STATUS
approved