|
|
A068559
|
|
Numbers m such that phi(m) = tau(m)^3.
|
|
4
|
|
|
1, 85, 333, 436, 1542, 1875, 2907, 3285, 3488, 3796, 5196, 10280, 17532, 17776, 20080, 21250, 28305, 30368, 30555, 32708, 34748, 35308, 36860, 37060, 41544, 41568, 43068, 44004, 45162, 48468, 51930, 81324, 98304, 98688, 104856, 131070
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[132000], EulerPhi[#]==DivisorSigma[0, #]^3&] (* Harvey P. Dale, Dec 28 2022 *)
|
|
PROG
|
(PARI) isok(m) = eulerphi(m) == numdiv(m)^3; \\ Michel Marcus, Oct 18 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|