login
Numbers n such that all of {n, pi(n), prime(n)} have the same decimal digits (ignoring multiplicity).
0

%I #11 Sep 04 2019 11:38:28

%S 152024,1331302,1654692,1665259,2498121,2498182,3539725,3767628,

%T 4880306,5372892,5372899,5589360,8754741,9011136,9023611,9023613,

%U 9023616,9136605,9136630,9136660,9194561,9196454,9412864,9462431,9749651

%N Numbers n such that all of {n, pi(n), prime(n)} have the same decimal digits (ignoring multiplicity).

%e n=5589360: {pi(n), n, prime(n)} = {386509, 5589360, 96830533} with digits= {0, 3, 5, 6, 8, 9}.

%t uid[x_] := Union[IntegerDigits[x]] Do[If[Equal[uid[n], uid[Prime[n]]]&&, Equal[uid[n], uid[PrimePi[n]]] Print[{PrimePi[n], n, Prime[n]}]], {n, 1, 10000}]

%Y Cf. A000027, A000040, A000720, A074350.

%K base,nonn

%O 1,1

%A _Labos Elemer_, Sep 12 2003

%E More terms from _Ryan Propper_, Sep 23 2006