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 A347292 #62 Sep 02 2025 09:23:02
%S A347292 2,9,1,9,5,4,8,0,8,6,1,9,8,8,0,1,9,0,0,0,0,4,4,3,3,7,8,2,0,0,7,3,7,3,
%T A347292 3,0,0,8,7,8,6,8,3,3,2,7,6,0,3,5,8,2,0,3,7,4,3,9,6,4,1,5,0,3,9,9,5,8,
%U A347292 4,4,9,2,6,1,8,5,7,8,3,8,3,0,1,7,2,0,8,7,3,1,6,3,7,5,8,2,0,2,8,7,4,0,3,7,2
%N A347292 Decimal expansion of maximum of real part of the function psi(cos(x) + i*sin(x)).
%C A347292 psi is the digamma function.
%C A347292 Values of psi(cos(x) + i*sin(x)) change in range from -gamma to this constant where gamma is the Euler-Mascheroni constant A001620.
%C A347292 This maxima occurs for x = (2k+1)*Pi +- 0.941223380428505630122594...
%e A347292 0.2919548086198801900004433...
%t A347292 RealDigits[FindMaximum[Re[PolyGamma[0,Cos[x] + I Sin[x]]], {x,2}, WorkingPrecision -> 105][[1]]][[1]]
%Y A347292 Cf. A001620, A248177.
%K A347292 cons,nonn,changed
%O A347292 0,1
%A A347292 _Artur Jasinski_, Feb 09 2022
%E A347292 Last digit corrected by _Vaclav Kotesovec_, Sep 02 2025