A383722 a(n) = A378762(A382679(n)).
1, 5, 3, 6, 2, 4, 14, 8, 12, 10, 15, 9, 13, 7, 11, 27, 17, 25, 19, 23, 21, 28, 20, 26, 18, 24, 16, 22, 44, 30, 42, 32, 40, 34, 38, 36, 45, 35, 43, 33, 41, 31, 39, 29, 37, 65, 47, 63, 49, 61, 51, 59, 53, 57, 55, 66, 54, 64, 52, 62, 50, 60, 48, 58, 46, 56
Offset: 1
Examples
Triangle array begins: k= 1 2 3 4 5 6 7 8 9 n=1: 1; n=2: 5, 3, 6, 2, 4; n=3: 14, 8, 12, 10, 15, 9, 13, 7, 11; (1, 5, 3, ..., 7, 11) = (1, 2, 3, ..., 12, 11) (1, 5, 3, ..., 7, 15). The first permutation on the right-hand side is from Example A378762 and the second from Example A382679. (1, 5, 3, ..., 7, 11) = (1, 5, 3, ..., 7, 11)^(-1). For n > 1, each row of triangle array joins two consecutive upward antidiagonals in the table: 1, 3, 4, 10, 11, ... 5, 2, 12, 7, 23, ... 6, 8, 13, 19, 24, ... 14, 9, 25, 18, 40, ... 15, 17, 26, 32, 41, ... ... Subtracting (n-1)*(2*n-3) from each term in row n produces a permutation of numbers from 1 to 4*n-3: 1; 4, 2, 5, 1, 3; 8, 2, 6, 4, 9, 3, 7, 1, 5.
Links
- Boris Putievskiy, Table of n, a(n) for n = 1..9730
- Boris Putievskiy, Integer Sequences: Irregular Arrays and Intra-Block Permutations, arXiv:2310.18466 [math.CO], 2023.
- Index entries for sequences that are permutations of the natural numbers.
Crossrefs
Programs
-
Mathematica
T[n_,k_]:=(n-1)*(2*n-3)+Module[{m=2*n-1},If[k
Formula
T(n,k) for 1 <= k <= 4n - 3: T(n,k) = A000384(n-1) + P(n,k), P(n, k) = 2m - 1 - k if k < m and k == 1 (mod 2), P(n, k) = k if k < m and k == 0 (mod 2), P(n, k) = 3m - 1 - k if k >= m and k == 1 (mod 2), P(n, k) = 2m - 1 - k if k >= m and k == 0 (mod 2), where m = 2n - 1.
Comments