|
Search: id:A072895
|
|
|
| A072895 |
|
Least k for the Theodorus spiral to complete n revolutions. |
|
+0
1
|
|
| 17, 54, 110, 186, 281, 396, 532, 686, 861, 1055, 1269, 1503, 1757, 2030, 2323, 2636, 2968, 3320, 3692, 4084, 4495, 4927, 5377, 5848, 6338, 6849, 7378, 7928, 8497, 9087, 9695, 10324, 10972, 11640, 12328, 13036, 13763, 14510, 15277, 16063, 16869
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
"For n = 16 (which gives sqrt(17)) this sum is 351.15 degree, while for n = 17 the sum is 364.78 degree. That is, perhaps Theodorus stopped at sqrt(17) simply because for n > 16 his spiral started to overlap itself and the drawing became 'messy.'" Nahin p. 34.
There exists a constant c = 1.07889149832972311... such that b(n) = IntegerPart[(Pi*n + c)^2 - 1/6] differs at most by 1 from a(n) for all n>=1. At least for n<=4000 we indeed have a(n)=b(n). - Herbert Kociemba (kociemba(AT)t-online.de), Sep 12 2005
|
|
REFERENCES
|
Paul J. Nahin, "An Imaginary Tale, The Story of [Sqrt(-1)]," Princeton University Press, Princeton, NJ. 1998, pgs 33-34.
David Wells, "The Penguin Dictionary of Curious and Interesting Numbers," Revised Edition, London, England, 1997, page 76.
|
|
FORMULA
|
Sum ( atan( 1/sqrt(i)), i=1..k) > 2n*Pi
|
|
MATHEMATICA
|
f[n_] := Block[{k = 0, s = 0}, While[s < n, k++; s = s + ArcTan[1/Sqrt[k]]]; k]; Table[ f[2n*Pi], {n, 1, 45}]
|
|
CROSSREFS
|
Cf. A002194.
Sequence in context: A082078 A107175 A125637 this_sequence A097059 A117390 A048508
Adjacent sequences: A072892 A072893 A072894 this_sequence A072896 A072897 A072898
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 29 2002
|
|
|
Search completed in 0.002 seconds
|
