OFFSET
1,2
LINKS
Hans Havermann, Search for the next term.
MATHEMATICA
a = Infinity; fn = 1; p = N[Pi, 24]; Do[ fn = 5fn; b = N[ Abs[Pi - Plus @@ IntegerDigits@fn/n], 24]; If[b < a, a = b; Print@n], {n, 711000}] (* Robert G. Wilson v, Sep 08 2007 *)
CROSSREFS
KEYWORD
base,fini,nonn,more
AUTHOR
Hans Havermann, Jul 29 2006, Jul 31 2006, Aug 05 2006
STATUS
approved