login
phi(n) + n is a cube.
1

%I #9 Jan 07 2020 13:09:51

%S 6,44,48,162,168,344,352,384,668,1296,1344,1832,2561,2732,2752,2816,

%T 2949,3072,4374,4392,4536,4680,5344,5901,9625,10368,10752,13160,14636,

%U 14656,21848,21856,22016,22528,23875,24576,26204,33335,34992,35136

%N phi(n) + n is a cube.

%H Harvey P. Dale, <a href="/A114074/b114074.txt">Table of n, a(n) for n = 1..250</a>

%e phi(44) + 44 = 64 = 4^3.

%t Select[Range[40000],IntegerQ[Surd[EulerPhi[#]+#,3]]&] (* _Harvey P. Dale_, Jan 07 2020 *)

%o (PARI) isok(n) = ispower(eulerphi(n) + n, 3); \\ _Michel Marcus_, Jan 22 2014

%K nonn

%O 1,1

%A _Giovanni Resta_, Feb 13 2006