%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