|
|
A119666
|
|
Each term k provides a value of (sum-of-digits of 5^k)/k that is closer to Pi than the previous value.
|
|
2
|
|
|
1, 2, 4, 6, 8, 139, 309, 390, 819, 2868, 6751, 8045, 9414, 15008, 15375, 56839, 84383, 151286, 307650, 516962, 533919, 2021009
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|