1,3

Antti Karttunen, Table of n, a(n) for n = 1..10000

(PARI) a(n) = {my(en = eulerphi(n)); k = 1; while (eulerphi(k) != en, k++); return (k); } \\ Michel Marcus, Jun 17 2013

Cf. A000010, A028476, A066412, A066659.

Sequence in context: A114003 A219792 A029622 * A219793 A215495 A299149

Adjacent sequences: A015123 A015124 A015125 * A015127 A015128 A015129

nonn,look

Vladeta Jovovic, Jan 12 2002

approved