A227687 -id:A227687 - cp's OEIS frontend

A186351 Adjusted joint rank sequence of (f(i)) and (g(j)) with f(i) before g(j) when f(i)=g(j), where f and g are the odd numbers and the triangular numbers. Complement of A186350.

2, 4, 6, 9, 13, 17, 21, 26, 32, 38, 44, 51, 59, 67, 75, 84, 94, 104, 114, 125, 137, 149, 161, 174, 188, 202, 216, 231, 247, 263, 279, 296, 314, 332, 350, 369, 389, 409, 429, 450, 472, 494, 516, 539, 563, 587, 611, 636, 662, 688, 714, 741, 769, 797, 825, 854, 884, 914, 944, 975, 1007, 1039, 1071, 1104, 1138, 1172, 1206, 1241, 1277, 1313, 1349, 1386, 1424, 1462, 1500

Offset: 1

Clark Kimberling, Feb 18 2011

nonn

See A186350.

			First, write
1..3..5..7..9..11..13..15..17..21..23.. (odds)
1..3....6.....10.......15......21.... (triangular)
Then replace each number by its rank, where ties are settled by ranking the odd number before the triangular:
a = (1,3,5,7,8,10,11,12,14,....) = A186350
b = (2,4,6,9,13,17,21,26,32,...) = A186351.

Cf. A186350, A186352, A186353, A227687.

Mathematica
```
(See A186350.)
```

See A186350.

A227688 Numerator of least splitting rational of s(n) and s(n+1), where s(n) = 1/sqrt(1) + 1/sqrt(2) + ... + 1/sqrt(n).

Original entry on oeis.org

1, 2, 5, 3, 7, 4, 13, 9, 5, 21, 11, 17, 6, 19, 13, 20, 7, 22, 15, 23, 8, 41, 25, 17, 26, 9, 46, 28, 19, 29, 49, 10, 41, 31, 21, 32, 54, 11, 45, 34, 23, 35, 47, 12, 73, 49, 37, 25, 38, 64, 13, 79, 53, 40, 27, 41, 55, 97, 14, 71, 43, 72, 29, 44, 59, 104, 15

Offset: 1

Clark Kimberling, Jul 21 2013

Suppose that x < y. The least splitter of x and y is introduced at A227631 as the least positive integer d such that x <= c/d < y for some integer c; the number c/d is called the least splitting rational of x and y.

			The denominators (A227687) and numerators (A227688) can be read from these chains:
1 < 2 < 5/2 < 3 < 7/2 < 4 < 13/3 < 9/2 < 5 < 21/4 < 11/2 < 17/3 < 6 < . . . ;
s(1) <= 1 < s(2) < 2 < s(3) < 5/2 < s(4) < 3 < s(5) < 4 < s(6) < 13/3 <  . . .

Clark Kimberling, Table of n, a(n) for n = 1..1000

Cf. A227631, A227687.

r[x_, y_] := Module[{c, d}, d = NestWhile[#1 + 1 &, 1, ! (c = Ceiling[#1 x - 1]) < Ceiling[#1 y] - 1 &]; (c + 1)/d];
s[n_] := s[n] = Sum[k^(-1/2), {k, 1, n}]; t = Table[r[s[n], s[n + 1]], {n, 1, 15}] (*fractions*)
fd = Denominator[t] (*A227687*)
fn = Numerator[t]   (*A227688*)

cp's OEIS Frontend

A186351 Adjusted joint rank sequence of (f(i)) and (g(j)) with f(i) before g(j) when f(i)=g(j), where f and g are the odd numbers and the triangular numbers. Complement of A186350.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula