A339584 A ternary sequence: a(n) = 1 if n is in A003156, 2 if n is in A003157, 3 if n is in A003158.

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

Offset: 1

Author

N. J. A. Sloane, Dec 26 2020

Keywords

• nonn

Comments

This has the same relationship to A003156-A003158 as A092782 does to A003144-A003146.

Crossrefs

Cf. A003156, A003157, A003158; A003144, A003145, A003146, A080843, A092606, A092782.

Programs

Mathematica

Nest[Flatten[# /. {1 -> {1, 3, 2}, 2 -> 1, 3 -> 1}] &, {1}, 8] (* John Keith, Dec 28 2020 after Robert G. Wilson v's program for A092782. *)

Formula

a(n) = A092606(n) + 1. - John Keith, Dec 28 2020