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 A258383 #22 Oct 31 2024 01:27:25
%S A258383 2,2,2,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,2,1,1,1,1,1,1,1,1,1,1,1,1,
%T A258383 1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,2,1,1,1,1,1,1,1,2,1,
%U A258383 1,1,1,1,1,1,1,1,2,1,1,2,1,2,1,1,1,1
%N A258383 Run lengths of consecutive identical terms in A062234.
%C A258383 a(A258437(n)) = n and a(m) != n for m < A258437(n). [Because of recent changes that were made to A258437, this comment may now need to be changed. - _N. J. A. Sloane_, Oct 31 2024]
%H A258383 Reinhard Zumkeller, <a href="/A258383/b258383.txt">Table of n, a(n) for n = 1..10000</a>
%e A258383 See A258432.
%t A258383 Map[Length, Most[Split[ListConvolve[{-1, 2}, Prime[Range[200]]]]]] (* _Paolo Xausa_, Oct 30 2024 *)
%o A258383 (Haskell)
%o A258383 import Data.List (group)
%o A258383 a258383 n = a258383_list !! (n-1)
%o A258383 a258383_list = map length $ group a062234_list
%Y A258383 Cf. A062234, A258432, A258437.
%K A258383 nonn
%O A258383 1,1
%A A258383 _Reinhard Zumkeller_, May 31 2015