|
|
A114077
|
|
Numbers k such that phi(k)*sigma(k) is a cube.
|
|
2
|
|
|
1, 3, 119, 357, 2522, 6305, 6596, 6604, 7566, 18915, 19788, 19812, 20520, 24347, 24353, 26068, 26082, 28126, 47959, 58520, 64790, 65205, 70315, 73041, 73059, 73636, 75460, 78204, 84378, 143877, 156519, 164920, 175560, 194370, 210945, 212660, 220908, 226380
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
REFERENCES
|
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 119, p. 41, Ellipses, Paris 2008.
|
|
LINKS
|
|
|
EXAMPLE
|
phi(357) * sigma(357) = 110592 = 48^3.
|
|
MATHEMATICA
|
Select[Range[10^5], IntegerQ @ Surd[EulerPhi[#] * DivisorSigma[1, #], 3] &] (* Amiram Eldar, Sep 19 2019 *)
|
|
PROG
|
(PARI) isok(n) = ispower(eulerphi(n)*sigma(n), 3); \\ Michel Marcus, Jan 22 2014
(Magma) [k:k in [1..230000]| IsPower(EulerPhi(k)*DivisorSigma(1, k), 3)]; // Marius A. Burtea, Sep 19 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|