A068579 Let phi_m(x) = phi(phi(...(phi(x))...)) m times; sequence gives values of k such that phi_3(k) = tau(k).

1, 11, 13, 19, 33, 34, 35, 39, 46, 57, 58, 62, 74, 86, 88, 102, 104, 105, 110, 130, 135, 138, 152, 154, 174, 182, 186, 190, 222, 258, 264, 280, 312, 330, 342, 390, 456, 462, 546, 570, 594, 756, 840, 1080

Offset

1,2

Comments

Numbers k such that A049099(k) = A000005(k).

Links

Table of n, a(n) for n=1..44.

Mathematica

Select[Range[1080], Nest[EulerPhi, #, 3] === DivisorSigma[0, #] &] (* Amiram Eldar, Jun 12 2022 *)

Prog

(PARI) is(k) = numdiv(k) == eulerphi(eulerphi(eulerphi(k))); \\ Jinyuan Wang, Apr 05 2020

Crossrefs

Cf. A000005, A000010, A049099, A068580, A068581, A068582.

Sequence in context: A081984 A145482 A167497 * A048519 A288878 A102907

Adjacent sequences: A068576 A068577 A068578 * A068580 A068581 A068582

Keyword

nonn,easy,fini,full

Author

Benoit Cloitre, Mar 26 2002

Status

approved