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

1, 3, 4, 6, 7, 9, 10, 12, 14, 15, 17, 18, 20, 21, 23, 24, 26, 28, 29, 31, 32, 34, 35, 37, 38, 40, 42, 43, 45, 46, 48, 49, 51, 53, 54, 56, 57, 59, 60, 62, 63, 65, 67, 68, 70, 71, 73, 74, 76, 77, 79, 81, 82, 84, 85, 87, 88, 90, 91, 93, 95, 96, 98, 99, 101, 102

Offset

1,2

Links

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

Mathematica

z = 120; r = 5 - Sqrt[2]; s = 5 + Sqrt[2];
Table[n + Floor[n*r/s], {n, 1, z}]  (* A292642 *)
Table[n + Floor[n*s/r], {n, 1, z}]  (* A292643 *)

Prog

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

Crossrefs

Cf. A292643 (complement).

Sequence in context: A330176 A141206 A140100 * A249117 A093610 A206912

Adjacent sequences: A292639 A292640 A292641 * A292643 A292644 A292645

Keyword

nonn,easy

Author

Clark Kimberling, Sep 26 2017

Status

approved