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 A047846 #20 Oct 10 2023 16:24:10
%S A047846 1,1,1,1,2,2,1,1,2,2,2,1,2,1,2,3,1,1,1,6,1,2,4,2,2,1,2,2,4,1,5,5,1,1,
%T A047846 2,4,2,2,2,2,1,4,6,1,1,6,2,4,1,2,3,2,2,1,2,3,1,3,4,4,2,1,2,3,1,1,5,3,
%U A047846 1,3,1,2,5,8,2,4,2,2,2,4,2,2,2,2,1,5
%N A047846 Number of successive odd nonprimes (A014076).
%C A047846 Beginning with a(2), length of n-th run of identical numbers in A160522 [_Kyle Stern_, Jun 19 2009]
%C A047846 a(n+1) = A196277(n+1) - A196277(n). [_Reinhard Zumkeller_, Sep 30 2011]
%H A047846 Reinhard Zumkeller, <a href="/A047846/b047846.txt">Table of n, a(n) for n = 1..10000</a>
%t A047846 Length /@ Split[Select[Range[1, 629, 2], PrimeOmega[#] != 1 &], #2 - #1 <= 2 &] (* _Jayanta Basu_, Aug 11 2013 *)
%t A047846 Length/@Select[Split[Table[If[PrimeQ[n],0,1],{n,1,701,2}]],#[[1]]==1&] (* _Harvey P. Dale_, Oct 10 2023 *)
%o A047846 (Haskell)
%o A047846 a047846 n = a047846_list !! (n-1)
%o A047846 a047846_list = 1 : zipWith (-) (tail a196277_list) a196277_list
%o A047846 -- _Reinhard Zumkeller_, Sep 30 2011
%Y A047846 Length of n-th run in A014076.
%Y A047846 Cf. A160522.
%K A047846 easy,nonn
%O A047846 1,5
%A A047846 _Enoch Haga_
%E A047846 a(51) and a(84) corrected by _Reinhard Zumkeller_, Sep 30 2011