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 A346046 #5 Jul 05 2021 02:36:39
%S A346046 1,5,6,2,7,6,0,9,3,4,4,4,6,9,3,7,4,5,5,0,1,4,2,2,7,3,0,8,4,8,9,5,3,0,
%T A346046 3,0,1,9,1,3,8,7,6,8,8,9,0,8,2,0,4,0,0,1,5,0,4,8,3,3,3,6,8,0,8,5,8,4,
%U A346046 1,0,8,5,3,7,9,2,5,4,1,2,0,5,2,7,9,4,5,4,4,6,2,0,0,6,2,3,0,4,7,7
%N A346046 Decimal expansion of Sum_{k>=1} 1/A053657(k).
%C A346046 This constant is irrational (Mingarelli, 2013).
%H A346046 Angelo B. Mingarelli, <a href="http://nntdm.net/volume-19-2013/number-4/43-76/">Abstract factorials</a>, Notes on Number Theory and Discrete Mathematics, Vol. 19, No. 4 (2013), pp. 43-76 (see p. 60); <a href="https://arxiv.org/abs/0705.4299">arXiv preprint</a>, arXiv:0705.4299 [math.NT], 2007-2012.
%e A346046 1.56276093444693745501422730848953030191387688908204...
%t A346046 f[n_] := Product[p^Sum[Floor[(n - 1)/((p - 1) p^k)], {k, 0, n}], {p, Prime[Range[n]]}]; RealDigits[Sum[1/f[n], {n, 1, 100}], 10, 100] [[1]]
%Y A346046 Cf. A053657.
%K A346046 nonn,cons
%O A346046 1,2
%A A346046 _Amiram Eldar_, Jul 02 2021