A082060 Numbers n such that n and phi(n) have the same distinct decimal digits.

1, 21, 63, 101, 233, 291, 502, 677, 1021, 1031, 1051, 1061, 1091, 1201, 1226, 1301, 1601, 1801, 1901, 2011, 2201, 2333, 2383, 2393, 2518, 2633, 2677, 2700, 2767, 2817, 2833, 2991, 3011, 3023, 3122, 3203, 3253, 3323, 3623, 3677, 3767, 3823, 3923, 3989

Offset

1,2

Comments

Contains A113781 as a subsequence. - M. F. Hasler, Nov 28 2007

Numbers n such that n and phi(n) have the same decimal digits = A115921. - Jaroslav Krizek, Nov 13 2014

Links

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

Example

n=502 is a member since phi[502]=250

Mathematica

Select[Range[4000], Union[IntegerDigits[#]]==Union[IntegerDigits[ EulerPhi[ #]]]&] (* Harvey P. Dale, Jan 31 2022 *)

Prog

(PARI) for(n=1, 10^4, if(Set(Vec(Str(n)))==Set(Vec(Str(eulerphi(n)))), print1(n", "))) \\ M. F. Hasler, Nov 28 2007
(Python)
from sympy import totient
A082060_list = [n for n in range(1, 10**4) if set(str(totient(n))) == set(str(n))] # Chai Wah Wu, Dec 13 2015

Crossrefs

Cf. A000005, A000010, A082059, A115921, A113781, A113622, A069215, A072395, A113781.

Sequence in context: A371052 A195106 A143203 * A025525 A033850 A251213

Adjacent sequences: A082057 A082058 A082059 * A082061 A082062 A082063

Keyword

base,nonn

Author

Labos Elemer, Apr 04 2003

Extensions

Definition and comment corrected by Jaroslav Krizek, Nov 13 2014

Status

approved