A092584 Numbers k such that sigma(phi(k)) == phi(sigma(k)) (mod k), that is, A033632(k)/k is an integer.

1, 5, 9, 157, 225, 242, 516, 729, 3872, 13932, 14406, 17672, 18225, 20124, 21780, 29262, 29616, 45996, 65025, 76832, 92778, 95916, 106092, 106308, 114630, 114930, 121872, 125652, 140130, 140625, 145794, 149124, 160986, 179562, 185100, 234876

Offset

1,2

Links

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

Example

Includes but is not identical with A033632.
Below 10^7 only a(2) = 5 and a(4) = 157 give A033632(n)/n nonzero.

Mathematica

Select[Range[250000], Divisible[DivisorSigma[1, EulerPhi[#]] - EulerPhi[DivisorSigma[1, #]] , #] &]  (* Amiram Eldar, Mar 12 2020 *)

Prog

(PARI) is(n)=sigma(eulerphi(n))==Mod(eulerphi(sigma(n)), n) \\ Charles R Greathouse IV, Nov 27 2013

Crossrefs

Cf. A033632, A092585, A092586, A092587, A092588, A065395.

Sequence in context: A222583 A222374 A097397 * A145400 A002657 A046093

Adjacent sequences: A092581 A092582 A092583 * A092585 A092586 A092587

Keyword

nonn

Author

Labos Elemer, Mar 01 2004

Status

approved