|
Search: id:A136619
|
|
|
| A136619 |
|
Fold-switch-fold sequence defined by McFarlane and Withers in Math Monthly for m=3: A(n) = If[Mod[A(n - 1), 2] == 0, A(n - 1)/2, (m - A(n - 1))2]. |
|
+0
1
|
|
| 1, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
The sequence is periodic.
|
|
REFERENCES
|
Cayanne McFarlane and Wm. Douglas Withers; Dynamical Systems and Irrational Angle Construction by Paper-Folding, American Mathematical Monthly, Volume 115, Number 4, April 2008, page 356; http://www.maa.org/pubs/monthly_apr08_toc.html.
|
|
FORMULA
|
m=3,A(0)=1;a(1)=(m-1)/2; A(n) = If[Mod[A(n - 1), 2] == 0, A(n - 1)/2, (m - A(n - 1))2]
a(n)=(1/9)*{13*(n mod 3)-2*[(n+1) mod 3]+10*[(n+2) mod 3]}-[C(2*n,n) mod 2] - Paolo P. Lava (ppl(AT)spl.at), May 13 2008
|
|
MATHEMATICA
|
Clear[A, m, n] m = 3; A[0] = 1; A[1] = (m - 1)/2; A[n_] := A[n] = If[Mod[A[n - 1], 2] == 0, A[n - 1]/2, (m - A[n - 1])2]; Table[A[n], {n, 0, 50}]
|
|
CROSSREFS
|
Sequence in context: A105699 A023526 A082901 this_sequence A132708 A016506 A133455
Adjacent sequences: A136616 A136617 A136618 this_sequence A136620 A136621 A136622
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 31 2008
|
|
|
Search completed in 0.002 seconds
|
