reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
base,fini,nonn,more,changed
proposed
editing
editing
proposed
Each n term k provides a value of (sum-of-digits of 5^nk)/n k that is closer to pi Pi than the previous value.
approved
editing
_Hans Havermann (gladhobo(AT)teksavvy.com), _, Jul 29 2006, Jul 31 2006, Aug 05 2006
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 (rgwv(AT)rgwv.com), _, Sep 08 2007 *)
Hans Havermann (pxpgladhobo(AT)rogersteksavvy.com), Jul 29 2006, Jul 31 2006, Aug 05 2006
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 (rgwv@(AT)rgwv.com), Sep 08 2007 *)
base,fini,nonn,new