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

1, 3, 4, 6, 8, 9, 11, 12, 14, 16, 17, 19, 21, 22, 24, 25, 27, 29, 30, 32, 33, 35, 37, 38, 40, 42, 43, 45, 46, 48, 50, 51, 53, 55, 56, 58, 59, 61, 63, 64, 66, 67, 69, 71, 72, 74, 76, 77, 79, 80, 82, 84, 85, 87, 89, 90, 92, 93, 95, 97, 98, 100, 101, 103, 105

Offset

1,2

Comments

First differs from A000201 at a(55) = 89 <> 88. - Peter Munn, Aug 27 2022

Links

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

Mathematica

z = 120; r = 6 - Sqrt[2]; s = 6 + Sqrt[2];
Table[n + Floor[n*r/s], {n, 1, z}]  (* A292644 *)
Table[n + Floor[n*s/r], {n, 1, z}]  (* A292645 *)

Prog

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

Crossrefs

Cf. A000201, A292645 (complement).

Equivalent sequences with 6 replaced in the definition by m: A292636 (m=3), A292640 (m=4), A292642 (m=5).

Sequence in context: A066096 A000201 A090908 * A000202 A188035 A026339

Adjacent sequences: A292641 A292642 A292643 * A292645 A292646 A292647

Keyword

nonn,easy

Author

Clark Kimberling, Sep 26 2017

Status

approved