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

152024, 1331302, 1654692, 1665259, 2498121, 2498182, 3539725, 3767628, 4880306, 5372892, 5372899, 5589360, 8754741, 9011136, 9023611, 9023613, 9023616, 9136605, 9136630, 9136660, 9194561, 9196454, 9412864, 9462431, 9749651

Offset

1,1

Links

Table of n, a(n) for n=1..25.

Example

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

Mathematica

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}]

Crossrefs

Cf. A000027, A000040, A000720, A074350.

Sequence in context: A205951 A205462 A248691 * A244598 A112625 A118498

Adjacent sequences: A086688 A086689 A086690 * A086692 A086693 A086694

Keyword

base,nonn

Author

Labos Elemer, Sep 12 2003

Extensions

More terms from Ryan Propper, Sep 23 2006

Status

approved