|
%I #17 Dec 28 2022 13:38:39
%S 1,85,333,436,1542,1875,2907,3285,3488,3796,5196,10280,17532,17776,
%T 20080,21250,28305,30368,30555,32708,34748,35308,36860,37060,41544,
%U 41568,43068,44004,45162,48468,51930,81324,98304,98688,104856,131070
%N Numbers m such that phi(m) = tau(m)^3.
%C Subsequence of A039771. [_Enrique Pérez Herrero_, Aug 29 2010]
%H Enrique Pérez Herrero, <a href="/A068559/b068559.txt">Table of n, a(n) for n=1..470</a>
%t Select[Range[132000],EulerPhi[#]==DivisorSigma[0,#]^3&] (* _Harvey P. Dale_, Dec 28 2022 *)
%o (PARI) isok(m) = eulerphi(m) == numdiv(m)^3; \\ _Michel Marcus_, Oct 18 2019
%Y Cf. A020488, A039771, A068560, A114063. [_Enrique Pérez Herrero_, Aug 29 2010]
%K easy,nonn
%O 1,2
%A _Benoit Cloitre_, Mar 25 2002
|
