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 A338851 #17 Nov 24 2020 12:38:47
%S A338851 1,8,2,0,2,4,7,7,1,7,8,7,0,0,0,9,1,3,0,6,6,0,8,8,0,8,4,5,1,8,9,9,9,3,
%T A338851 4,8,3,6,0,0,9,6,2,3,5,9,5,2,9,3,6,4,4,9,8,7,6,8,3,5,4,3,9,6,4,4,9,8,
%U A338851 7,0,1,7,7,3,7,9,7,4,4,7,6,4,0,1,2,0,9,1,3,2,0,7,3,2,1,5,9,3,2,6,0,9,5,0,2
%N A338851 Constant T such that Sum_{n>=1} zeta(T*n)=1.
%e A338851 1.82024771787000913066...
%t A338851 (*convergence test*)
%t A338851 Do[Print[FindRoot[Sum[Zeta[c n] - 1, {n, 1, m}] == 1, {c, 2},
%t A338851 WorkingPrecision -> 200]], {m, 50, 450, 50}] (* Krzysztof Maslanka *)
%Y A338851 Cf. A021002, A338815.
%K A338851 nonn,cons
%O A338851 1,2
%A A338851 _Artur Jasinski_, Nov 12 2020