OFFSET
1,2
COMMENTS
LINKS
T. D. Noe, Table of n, a(n) for n=1..300
MATHEMATICA
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]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Nov 04 2010
STATUS
approved