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

Author

Labos Elemer, Apr 04 2003

Keywords

• base
• nonn

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

Examples

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

Links

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

Crossrefs

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

Programs

Mathematica

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

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

Extensions

Definition and comment corrected by Jaroslav Krizek, Nov 13 2014