

A086835


Second type of switched binary Batrachion 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;
text;
internal format)



OFFSET

1,3


COMMENTS

Switches have starting positions and the initial condition affects the resulting chaos, so both sequences are important and the domains that result are different.


LINKS

Table of n, a(n) for n=1..76.


FORMULA

Hc[n] =Hc[(n  Hc[n1])*(Mod[n, 2])+Hc[n1]*(1Mod[n, 2])] + Hc[(n  Hc[n2])*(Mod[n, 2])+(nHc[n1])*(1Mod[n, 2])]


MATHEMATICA

digits=200 Hc[n_Integer?Positive] := Hc[n] =Hc[(n  Hc[n1])*(Mod[n, 2])+Hc[n1]*(1Mod[n, 2])] + Hc[(n  Hc[n2])*(Mod[n, 2])+(nHc[n1])*(1Mod[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, Sep 15 2003


STATUS

approved



