p(7)=17 with 7 and 17 both primes. p(9551)=99551 with both 9551 and 99551 primes.

MATHEMATICA

Select[Prime[Prime[Range[6000000]]], PrimePi[#]==Mod[ #, 10^IntegerLength[ PrimePi[#]]]&] (* The program takes a long time to run *) (* Harvey P. Dale, Jul 05 2012 *)