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
KEYWORD
nonn
AUTHOR
Casey Mongoven, Jul 16 2013
STATUS
approved