login
Numbers at which the sum of the iterated totient function (A092693) attains a minimum.
2

%I #3 Mar 30 2012 17:22:57

%S 1,2,6,12,18,30,42,54,60,66,90,126,150,210,270,294,330,420,462,630,

%T 660,840,882,1050,1260,1470,1680,1890,2310,2730,2940,3150,3234,3570,

%U 3990,4410,4620,4830,5250,5460,5670,6090,6930,7350,8190,9030,9240,9450,9660

%N Numbers at which the sum of the iterated totient function (A092693) attains a minimum.

%C That is, for each n in this sequence, A092693(n) < A092693(m) for m > n. Do all primorials appear here?

%H T. D. Noe, <a href="/A181660/b181660.txt">Table of n, a(n) for n=1..300</a>

%t kMax=2*3*5*7*11*13; t=Table[0,{kMax}]; Do[e=EulerPhi[k]; t[[k]]=e+t[[e]], {k,2,kMax}]; mn=Infinity; Reverse[Reap[Do[If[t[[ -k]]<mn, mn=t[[ -k]]; Sow[kMax-k+1]], {k,kMax}]][[2,1]]]

%Y Cf. A181659

%K nonn

%O 1,2

%A _T. D. Noe_, Nov 04 2010