|
|
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.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
Equivalent sequences with 6 replaced in the definition by m: A292636 (m=3), A292640 (m=4), A292642 (m=5).
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|