login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Table of n, a(n) for n=1..83.

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 23 11:12 EST 2018. Contains 299564 sequences. (Running on oeis4.)