[go: up one dir, main page]

login
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
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
Sequence in context: A090339 A225159 A078810 * A075337 A000561 A292057
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved