%I A074467
%S A074467 1,2,4,8,13,22,38,63,105,177,296,495,828,1386,2318,3879,6489,10854,
%T A074467 18158,30375,50811,84998,142187,237853,397885,665589,1113411,1862534,
%U A074467 3115683,5211973,8718687
%N A074467 Subscript m such that Phi-Harmonic sequence, fi[m]=Sum[1/EulerPhi[k],
               {k,1,m}] >= n.
%D A074467 J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 177, p. 55, Ellipses, 
               Paris 2008.
%t A074467 {s=0, s1=0}; Do[s=s+(1/EulerPhi[n]); If[Greater[Floor[s], s1], s1=Floor[s]; 
               Print[{n, Floor[s]}]], {n, 1, 1000000}]
%Y A074467 Cf. A002387, A004080, A046024, A074631, A074633.
%Y A074467 Sequence in context: A078157 A144119 A023600 this_sequence A018066 A096573 
               A000077
%Y A074467 Adjacent sequences: A074464 A074465 A074466 this_sequence A074468 A074469 
               A074470
%K A074467 more,nonn
%O A074467 1,2
%A A074467 Labos E. (labos(AT)ana.sote.hu), Aug 29 2002
%E A074467 More terms from Ryan Propper (rpropper(AT)stanford.edu), Jul 09 2005