|
|
A114074
|
|
phi(n) + n is a cube.
|
|
1
|
|
|
6, 44, 48, 162, 168, 344, 352, 384, 668, 1296, 1344, 1832, 2561, 2732, 2752, 2816, 2949, 3072, 4374, 4392, 4536, 4680, 5344, 5901, 9625, 10368, 10752, 13160, 14636, 14656, 21848, 21856, 22016, 22528, 23875, 24576, 26204, 33335, 34992, 35136
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
phi(44) + 44 = 64 = 4^3.
|
|
MATHEMATICA
|
Select[Range[40000], IntegerQ[Surd[EulerPhi[#]+#, 3]]&] (* Harvey P. Dale, Jan 07 2020 *)
|
|
PROG
|
(PARI) isok(n) = ispower(eulerphi(n) + n, 3); \\ Michel Marcus, Jan 22 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|