OFFSET
1,1
COMMENTS
Starting with a golden triangle whose base is of length 1 and whose sides are of length phi = (1+sqrt(5))/2, create the next golden triangle at the base of the previous triangle, i.e., sides length = 1 and base length = phi-1, and so on. a(n) is the floor of the curvature (inverse of the radius) of the circle inscribed in the n-th triangle.
The golden triangles created by this process are the same as the golden triangles inscribed in a logarithmic spiral.
The logarithmic spiral can be approximated by circular arcs of radii 1, phi-1, (phi-1)^2, ... which are the sides of bisected golden gnomons and center located at their related apex. The sequence whose n-th term is the curvature (rounded down) of the n-th such circular arc is A014217. See illustration in link.
LINKS
Kival Ngaokrajang, Illustration of initial terms.
Wikipedia, Golden triangle.
PROG
(Small Basic)
phi=(1+Math.SquareRoot(5))/2
b[0]=phi
For n = 1 To 30
c=b[n-1]*(phi-1)
s=(2*b[n-1]+c)/2
r=math.SquareRoot((Math.Power((s-b[n-1]), 2)*(s-c))/s)
b[n]=c
a=math.Floor(1/r)
TextWindow.Write(a+", ")
EndFor
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Kival Ngaokrajang, Aug 25 2013
STATUS
approved