The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A227539 Signature sequence of Soldner's constant (A070769). 0
 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, 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, 12, 2, 5, 8, 11, 14, 1, 4, 7, 10, 13, 3, 6, 9, 12, 15, 2, 5, 8 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS 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. The plot looks surprisingly regular. - T. D. Noe, Jul 23 2013 Where does this first differ from A133334? - R. J. Mathar, Jul 30 2013 REFERENCES Clark Kimberling, Fractal Sequences and Interspersions, Ars Combinatoria 45 (1997) 157-168. LINKS Eric Weisstein's World of Mathematics, Soldner's Constant. Eric Weisstein's World of Mathematics, Logarithmic Integral. MATHEMATICA 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 *) CROSSREFS Cf. A070769, A099803. Sequence in context: A226080 A167287 A007336 * A133334 A003603 A278118 Adjacent sequences:  A227536 A227537 A227538 * A227540 A227541 A227542 KEYWORD nonn AUTHOR Casey Mongoven, Jul 16 2013 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 24 07:28 EDT 2020. Contains 337317 sequences. (Running on oeis4.)