A354384 Difference sequence of A356133.

2, 3, 4, 2, 4, 3, 2, 3, 4, 3, 2, 4, 2, 3, 4, 2, 4, 3, 2, 4, 2, 3, 4, 3, 2, 3, 4, 2, 4, 3, 2, 3, 4, 3, 2, 4, 2, 3, 4, 3, 2, 3, 4, 2, 4, 3, 2, 4, 2, 3, 4, 2, 4, 3, 2, 3, 4, 3, 2, 4, 2, 3, 4, 2, 4, 3, 2, 4, 2, 3, 4, 3, 2, 3, 4, 2, 4, 3, 2, 4, 2, 3, 4, 2, 4, 3

Offset

1,1

Links

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

Formula

a(n) = A007413(n) + 1.

a(n) = A036580(n) + 2.

Mathematica

u = Accumulate[1 + ThueMorse /@ Range[0, 200]]  (* A026430 *)
v = Complement[Range[Max[u]], u];  (* A356133 *)
Differences[v] (* A354384 *)

Crossrefs

Cf. A026430, A356133, A091855 (positions of 2), A036554 (positions of 3), A091855 (positions of 4).

Sequence in context: A107468 A023632 A286844 * A338272 A107572 A043264

Adjacent sequences: A354381 A354382 A354383 * A354385 A354386 A354387

Keyword

nonn,easy

Author

Clark Kimberling, Aug 04 2022

Status

approved