OFFSET
1,2
COMMENTS
EXAMPLE
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}] (* Robert G. Wilson v, Nov 16 2004 *)
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Mark Hudson (mrmarkhudson(AT)hotmail.com), Nov 16 2004
EXTENSIONS
a(6) from Jon E. Schoenfield, Mar 28 2015
STATUS
approved