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 A227539 #27 Feb 16 2025 08:33:20
%S A227539 1,2,1,3,2,1,4,3,2,5,1,4,3,6,2,5,1,4,7,3,6,2,5,8,1,4,7,3,6,9,2,5,8,1,
%T A227539 4,7,10,3,6,9,2,5,8,11,1,4,7,10,3,6,9,12,2,5,8,11,1,4,7,10,13,3,6,9,
%U A227539 12,2,5,8,11,14,1,4,7,10,13,3,6,9,12,15,2,5,8
%N A227539 Signature sequence of Soldner's constant (A070769).
%C A227539 Arrange the numbers i+j*x (i,j >= 1) in increasing order; the sequence of i's is the signature of x; the sequence of j's is the signature of 1/x.
%C A227539 The plot looks surprisingly regular. - _T. D. Noe_, Jul 23 2013
%C A227539 Where does this first differ from A133334? - _R. J. Mathar_, Jul 30 2013
%D A227539 Clark Kimberling, Fractal Sequences and Interspersions, Ars Combinatoria 45 (1997) 157-168.
%H A227539 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SoldnersConstant.html">Soldner's Constant</a>.
%H A227539 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/LogarithmicIntegral.html">Logarithmic Integral</a>.
%H A227539 <a href="/index/Si#signature_sequences">Index entries for sequences related to signature sequences</a>
%t A227539 x = FindRoot[LogIntegral[x] == 0, {x, 2}, WorkingPrecision -> 105][[1,2]]; Take[Transpose[Sort[Flatten[Table[{i + j*x, i}, {i, 30}, {j, 20}], 1], #1[[1]] < #2[[1]] &]][[2]], 100] (* _T. D. Noe_, Jul 23 2013 *)
%Y A227539 Cf. A070769, A099803.
%K A227539 nonn
%O A227539 1,2
%A A227539 _Casey Mongoven_, Jul 16 2013