OFFSET
1,1
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
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Sep 12 2003
EXTENSIONS
More terms from Ryan Propper, Sep 23 2006
STATUS
approved