|
| |
|
|
A086835
|
|
Second type of switched binary Batrachian of Conway and Hofstadter sequence.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| 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 * A046701 A140472 A109168
Adjacent sequences: A086832 A086833 A086834 * A086836 A086837 A086838
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 15 2003
|
| |
|
|
