A116009 Numbers k such that k + sigma(k) + phi(k) is a square.

3, 81, 400, 972, 1209, 1276, 1480, 1833, 2700, 3408, 4080, 4345, 6321, 6498, 6885, 8673, 8697, 10257, 12325, 13192, 13240, 13409, 14496, 14560, 16932, 17232, 18168, 18904, 19140, 19344, 20196, 22896, 23568, 23920, 27001, 27313, 28305

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Example

81 + sigma(81) + phi(81) = 16^2.

Mathematica

Select[Range[30000], IntegerQ@Sqrt[# +DivisorSigma[1, #]+EulerPhi[#]] &] (* Amiram Eldar, Aug 13 2019 *)

Prog

(PARI) isok(n) = issquare (n + sigma(n) + eulerphi(n)); \\ Michel Marcus, Jan 26 2014

Crossrefs

Cf. A116007, A116008.

Sequence in context: A274567 A137994 A074386 * A068562 A123656 A229842

Adjacent sequences: A116006 A116007 A116008 * A116010 A116011 A116012

Keyword

nonn

Author

Giovanni Resta, Feb 13 2006

Status

approved