This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A339584 #10 Dec 28 2020 17:37:59 %S A339584 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 A339584 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 A339584 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 A339584 A ternary sequence: a(n) = 1 if n is in A003156, 2 if n is in A003157, 3 if n is in A003158. %C A339584 This has the same relationship to A003156-A003158 as A092782 does to A003144-A003146. %F A339584 a(n) = A092606(n) + 1. - _John Keith_, Dec 28 2020 %t A339584 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 A339584 Cf. A003156, A003157, A003158; A003144, A003145, A003146, A080843, A092606, A092782. %K A339584 nonn %O A339584 1,2 %A A339584 _N. J. A. Sloane_, Dec 26 2020