login
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.
3
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
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Sep 26 2017
STATUS
approved