The terms of this current sequence are related to those in A100322, but do not necessarily appear in that sequence since A100322 is defined as the smallest positive integer a(n) such that the decimal places of Pi^a(n) begin with n.
EXAMPLE
E.g. Pi^1=3.1...; Pi^4=97.4...; Pi^75=19330382693312372796273669213182810875.75...
MATHEMATICA
p = N[Pi, 10^4]; f[n_] := Block[{r = RealDigits[p^n, 10, Max[5, n]]}, e = r[[2]]; FromDigits[ Take[r[[1]], {e + 1, e + 1 + Floor[ Log[10, n]]} ]]]; Do[ If[ f[n] == n, Print[n]], {n, 10^4}] (from Robert G. Wilson v Nov 16 2004)
