|
Search: id:A086835
|
|
|
| A086835 |
|
Second type of switched binary Batrachian of Conway and Hofstadter sequence. |
|
+0
1
|
|
| 1, 1, 2, 2, 4, 3, 4, 4, 8, 5, 5, 8, 8, 7, 8, 8, 16, 9, 7, 12, 15, 12, 9, 16, 16, 13, 12, 16, 24, 19, 12, 20, 23, 14, 23, 17, 19, 14, 28, 24, 24, 25, 16, 24, 39, 32, 12, 25, 35, 31, 20, 32, 38, 22, 39, 44, 17, 40, 32, 36, 40, 36, 21, 31, 38, 30, 43, 32, 32, 34, 47, 28, 52, 44, 21, 54
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Swiches have starting positions and the initial condition affects the resulting chaos, so both sequences are important and the domains that result are different.
|
|
FORMULA
|
Hc[n] =Hc[(n - Hc[n-1])*(Mod[n, 2])+Hc[n-1]*(1-Mod[n, 2])] + Hc[(n - Hc[n-2])*(Mod[n, 2])+(n-Hc[n-1])*(1-Mod[n, 2])]
|
|
MATHEMATICA
|
digits=200 Hc[n_Integer?Positive] := Hc[n] =Hc[(n - Hc[n-1])*(Mod[n, 2])+Hc[n-1]*(1-Mod[n, 2])] + Hc[(n - Hc[n-2])*(Mod[n, 2])+(n-Hc[n-1])*(1-Mod[n, 2])] Hc[1] = Hc[2] = 1 a1=Table[Hc[n], {n, 1, digits}]
|
|
CROSSREFS
|
Cf. A086335, A004001, A005185.
Sequence in context: A087874 A166267 A117484 this_sequence A046701 A140472 A109168
Adjacent sequences: A086832 A086833 A086834 this_sequence A086836 A086837 A086838
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 15 2003
|
|
|
Search completed in 0.002 seconds
|
