A103956 A nonsense sequence.

1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 3, 1, 2, 1

Offset: 0

Author

Roger L. Bagula, Mar 30 2005

Keywords

• nonn
• uned
• less

Crossrefs

Cf. A073058, A103684.

Programs

Mathematica

Conway[1] = Conway[2] = 1;
Conway[n_Integer?Positive] := Conway[n] = Conway[Conway[n - 1]] + Conway[n - Conway[n - 1]]
s[1] = {1, 2}; s[2] = {1, 3}; s[3] = {1};
t[a_] := Join[a, Flatten[s /@ a]];
p[0] = {1}; p[1] = t[{1}];
p[n_] := t[p[n - 1]]
aa = Flatten[Table[p[If[n > 0, Conway[n], n]], {n, 0, 7}]]

Formula

1-> {1, 2} 2->{1, 3} 3->1 nested nest of substitution list are taken in a chaotic order.