login
Numbers m such that phi(m) > 2*tau(m), where phi = A000010 and tau = A000005.
1

%I #14 Jun 05 2024 01:23:39

%S 7,11,13,17,19,21,22,23,25,26,27,29,31,32,33,34,35,37,38,39,41,43,44,

%T 45,46,47,49,50,51,52,53,54,55,56,57,58,59,61,62,63,64,65,66,67,68,69,

%U 70,71,73,74,75,76,77,78,79,80,81,82,83,85,86,87,88,89,91,92,93,94,95,96

%N Numbers m such that phi(m) > 2*tau(m), where phi = A000010 and tau = A000005.

%C Complement of A112587.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/TotientFunction.html">Totient Function</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DivisorFunction.html">Divisor Function</a>

%F a(n) = n + 27 for n >= 94. - _Jianing Song_, Jul 28 2018

%t Select[Range[96], EulerPhi[#]>2DivisorSigma[0,#]&] (* _James C. McMahon_, Jun 04 2024 *)

%Y Cf. A000005, A000010, A112587.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Sep 14 2005