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 A033151 #21 Feb 16 2025 08:32:36
%S A033151 1,1,2,2,1,1,4,1,1,3,4,4,8,4,1,1,2,1,1,11,1,4,2,2,1,2,1,2,2,2,1,1,1,7,
%T A033151 14,2,1,13,2,1,6,2,3,1,1,1,5,2,2,8,29,1,6,1,18,1,3,2,1,5,1,1,1,18,1,3,
%U A033151 1,372,3,3,1,47,2,1,6,1,5,1,4,1,2,4,2,2,1,1,2,7,1,7,1,14,6,5,1,559,1
%N A033151 Continued fraction for Niven's constant.
%H A033151 I. Niven, <a href="https://doi.org/10.1090/S0002-9939-1969-0241373-5">Averages of Exponents in Factoring Integers</a>, Proc. Amer. Math. Soc. 22, 356-360, 1969.
%H A033151 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/NivensConstant.html">Niven's Constant</a>
%H A033151 G. Xiao, <a href="http://wims.unice.fr/~wims/en_tool~number~contfrac.en.html">Contfrac</a>
%H A033151 <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%t A033151 rd[n_] := rd[n] = RealDigits[ N[1 + Sum[1 - 1/Zeta[j], {j, 2, 2^n}], 105]][[1]]; rd[n = 4]; While[rd[n] =!= rd[n - 1], n++]; Niven = FromDigits[{rd[n], 1}]; ContinuedFraction[Niven, 100] (* _Jean-François Alcover_, Oct 30 2012 *)
%Y A033151 Cf. A033150 (decimal expansion).
%K A033151 nonn,cofr
%O A033151 0,3
%A A033151 _Eric W. Weisstein_
%E A033151 Offset changed by _Andrew Howroyd_, Jul 04 2024