%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