A292636 Rank of (3-r)*n when all the numbers (3-r)*j and (3+r)*k, where r = sqrt(2), j>=1, k>=1, are jointly ranked.

1, 2, 4, 5, 6, 8, 9, 10, 12, 13, 14, 16, 17, 19, 20, 21, 23, 24, 25, 27, 28, 29, 31, 32, 33, 35, 36, 38, 39, 40, 42, 43, 44, 46, 47, 48, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 70, 72, 73, 74, 76, 77, 78, 80, 81, 82, 84, 85, 86, 88, 89

Offset

1,2

Comments

Starts to differ from A279607 at n=103. - R. J. Mathar, Oct 02 2017

Links

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

Mathematica

z = 120; r = 3 - Sqrt[2]; s = 3 + Sqrt[2];
Table[n + Floor[n*r/s], {n, 1, z}]  (* A292636 *)
Table[n + Floor[n*s/r], {n, 1, z}]  (* A292637 *)

Prog

(PARI) vector(100, n, n + floor(n*(3-sqrt(2))/(3+sqrt(2)))) \\ G. C. Greubel, Aug 20 2018
(Magma) [n + Floor(n*(3-Sqrt(2))/(3+Sqrt(2))): n in [1..100]]; // G. C. Greubel, Aug 20 2018

Crossrefs

Cf. A292637 (complement).

Sequence in context: A059553 A249245 A279607 * A079709 A285496 A247778

Adjacent sequences: A292633 A292634 A292635 * A292637 A292638 A292639

Keyword

nonn,easy

Author

Clark Kimberling, Sep 23 2017

Status

approved