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 A065483 #20 Feb 16 2025 08:32:45
%S A065483 1,3,3,9,7,8,4,1,5,3,5,7,4,3,4,7,2,4,6,5,9,9,1,5,2,5,8,6,5,1,4,8,8,6,
%T A065483 0,5,2,7,7,5,2,4,2,2,4,9,7,8,8,1,8,2,8,0,6,6,6,3,0,1,5,0,6,7,6,4,6,7,
%U A065483 9,4,8,2,7,2,7,6,0,0,9,8,2,3,7,3,7,3,4,3,6,6,4,4,0,8,5,0,4,5,4
%N A065483 Decimal expansion of totient constant Product_{p prime} (1 + 1/(p^2*(p-1))).
%C A065483 The sum of the reciprocals of the cubefull numbers (A036966). - _Amiram Eldar_, Jun 23 2020
%H A065483 Steven R. Finch, <a href="https://doi.org/10.1017/9781316997741">Mathematical Constants II</a>, Encyclopedia of Mathematics and Its Applications, Cambridge University Press, Cambridge, 2018, p. 86.
%H A065483 G. Niklasch, <a href="/A001692/a001692.html">Some number theoretical constants: 1000-digit values</a> [Cached copy]
%H A065483 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TotientSummatoryFunction.html">Totient Summatory Function</a>
%F A065483 Equals (6/Pi^2) * A065484. - _Amiram Eldar_, Jun 23 2020
%e A065483 1.339784153574347246599152586514886052775...
%t A065483 $MaxExtraPrecision = 500; digits = 99; terms = 500; P[n_] := PrimeZetaP[n]; LR = Join[{0, 0, 0}, LinearRecurrence[{2, -1, -1, 1}, {3, 4, 5, 3}, terms + 10]]; r[n_Integer] := LR[[n]]; Exp[NSum[r[n]*P[n - 1]/(n - 1), {n, 3, terms}, NSumTerms -> terms, WorkingPrecision -> digits + 10]] // RealDigits[#, 10, digits]& // First (* _Jean-François Alcover_, Apr 18 2016 *)
%o A065483 (PARI) prodeulerrat(1 + 1/(p^2*(p-1))) \\ _Vaclav Kotesovec_, Sep 19 2020
%Y A065483 Cf. A036966, A065484, A078074.
%K A065483 cons,nonn
%O A065483 1,2
%A A065483 _N. J. A. Sloane_, Nov 19 2001