

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) 157168.


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



