login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(n)*Pi is the total length of irregular spiral (center points: 1, 3, 2) after n rotations.
8

%I #21 May 04 2021 01:09:34

%S 4,11,13,20,24,28,35,37,44,48,52,59,61,68,72,76,83,85,92,96,100,107,

%T 109,116,120,124,131,133,140,144,148,155,157,164,168,172,179,181,188,

%U 192,196,203,205,212,216,220,227,229,236,240,244,251,253,260,264,268,275,277,284,288,292,299,301,308,312,316,323,325

%N a(n)*Pi is the total length of irregular spiral (center points: 1, 3, 2) after n rotations.

%C Let points 1, 3 & 2 be placed on a straight line at intervals of 1 unit. At point 1 make a half unit circle, then at point 2 make another half circle, and maintain continuity of circumferences. Continue using this procedure at points 3, 1, 2, and so on. The form of spiral is a non-expanded loop. See illustration in links.

%H Kival Ngaokrajang, <a href="/A234903/a234903.pdf">Illustration of initial terms</a>

%F G.f.: x*(4*x^4 + 7*x^3 + 2*x^2 + 7*x + 4)/((1-x)(1-x^5)) (conjectured). - _Ralf Stephan_, Jan 13 2014

%o (Small Basic)

%o a[1]=4

%o For n = 1 To 100

%o d1=2

%o m5 = math.Remainder(n+1,5)

%o If m5 = 0 Or m5 = 1 Then

%o d1 = 4

%o EndIf

%o If m5 = 2 Or m5 = 4 Then

%o d1 = 7

%o EndIf

%o a[n+1]=a[n]+d1

%o TextWindow.Write(a[n]+", ")

%o EndFor

%Y Cf. A014105*Pi (total spiral length, 2 inline center points).

%K nonn

%O 1,1

%A _Kival Ngaokrajang_, Jan 01 2014