Fold-switch-fold sequence defined by McFarlane and Withers for m=3: Let A(n) = If[Mod[A(n - 1), 2] == 0, A(n - 1)/2, (m - A(n - 1))2]; a(n)= If[ Mod[A(n - 1), 2] == 0, a(n - 1)/2, (Pi - a(n - 1))/2].

A136615

Fold-switch-fold sequence defined by McFarlane and Withers for m=3: Let A(n) = If[Mod[A(n - 1), 2] == 0, A(n - 1)/2, (m - A(n - 1))2]; a(n)= If[ Mod[A(n - 1), 2] == 0, a(n - 1)/2, (Pi - a(n - 1))/2].

Terms

    a(0) =1a(1) =2a(2) =0a(3) =0a(4) =0a(5) =16a(6) =16a(7) =16a(8) =112a(9) =112a(10) =112a(11) =912a(12) =912a(13) =912a(14) =7280a(15) =7280a(16) =7280a(17) =58256a(18) =58256a(19) =58256a(20) =466032a(21) =466032a(22) =466032a(23) =3728272a(24) =3728272a(25) =3728272a(26) =29826160a(27) =29826160a(28) =29826160a(29) =238609296

External references