%I #15 Feb 25 2020 18:32:51
%S 1,2,8,32,128,864,3456,7776,31104,279936,497664,1990656,4478976,
%T 17915904,62208000,97200000,559872000,874800000,1555200000,6220800000,
%U 13996800000,55987200000
%N Numbers at which the sum of the iterated exponential totient function (A331273) attains a record.
%C Analogous to A181659 with the exponential totient function (A072911) instead of the Euler totient function phi (A000010).
%C The corresponding record values are 0, 1, 3, 5, 7, 11, 13, 19, 27, 37, 43, 51, 61, 75, 83, 101, 123, 147, 165, 195, 243, 293, ...
%t ephi[n_] := Times @@ EulerPhi[FactorInteger[n][[;; , 2]]]; s[n_] := Plus @@ FixedPointList[ephi, n] - n - 1; seq = {}; smax = -1; Do[s1 = s[n]; If[s1 > smax, smax = s1; AppendTo[seq, n]], {n, 1, 5000}]; seq
%Y Cf. A072911, A181659, A331273.
%K nonn,more
%O 1,2
%A _Amiram Eldar_, Feb 25 2020