%I #10 Dec 28 2020 17:37:59
%S 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,
%T 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,
%U 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
%N A ternary sequence: a(n) = 1 if n is in A003156, 2 if n is in A003157, 3 if n is in A003158.
%C This has the same relationship to A003156-A003158 as A092782 does to A003144-A003146.
%F a(n) = A092606(n) + 1. - _John Keith_, Dec 28 2020
%t 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. *)
%Y Cf. A003156, A003157, A003158; A003144, A003145, A003146, A080843, A092606, A092782.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Dec 26 2020