A116043 n+phi(n)+phi(phi(n)) is a square.

2, 6, 10, 11, 22, 24, 40, 62, 73, 88, 93, 96, 97, 105, 116, 127, 157, 160, 188, 228, 229, 237, 248, 292, 293, 301, 332, 352, 384, 401, 449, 464, 484, 541, 580, 640, 752, 837, 912, 945, 992, 1033, 1168, 1297, 1328, 1408, 1477, 1536, 1697, 1785, 1856, 1881

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

401+phi(401)+phi(phi(401)) = 961 = 31^2.

Mathematica

epQ[n_]:=Module[{epn=EulerPhi[n]}, IntegerQ[Sqrt[n+epn+EulerPhi[ epn]]]]; Select[Range[2000], epQ] (* Harvey P. Dale, Oct 03 2011 *)

Crossrefs

Cf. A116040, A116041, A116042.

Sequence in context: A050425 A030405 A125241 * A085258 A133520 A346299

Adjacent sequences: A116040 A116041 A116042 * A116044 A116045 A116046

Keyword

nonn

Author

Giovanni Resta, Feb 13 2006

Status

approved