cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 32 results. Next

A257505 Square array A(row,col): A(row,1) = A256450(row-1), and for col > 1, A(row,col) = A255411(A(row,col-1)); Dispersion of factorial base shift A255411.

Original entry on oeis.org

1, 4, 2, 18, 12, 3, 96, 72, 16, 5, 600, 480, 90, 22, 6, 4320, 3600, 576, 114, 48, 7, 35280, 30240, 4200, 696, 360, 52, 8, 322560, 282240, 34560, 4920, 2880, 378, 60, 9, 3265920, 2903040, 317520, 39600, 25200, 2976, 432, 64, 10, 36288000, 32659200, 3225600, 357840, 241920, 25800, 3360, 450, 66, 11, 439084800, 399168000, 35925120, 3588480, 2540160, 246240, 28800, 3456, 456, 70, 13
Offset: 1

Views

Author

Antti Karttunen, Apr 27 2015

Keywords

Comments

The array is read by downward antidiagonals: A(1,1), A(1,2), A(2,1), A(1,3), A(2,2), A(3,1), etc.
In Kimberling's terminology, this array is called the dispersion of sequence A255411 (when started from its first nonzero term, 4). The left column is the complement of that sequence, which is A256450.

Examples

			The top left corner of the array:
   1,   4,  18,   96,   600,   4320,   35280,   322560,   3265920
   2,  12,  72,  480,  3600,  30240,  282240,  2903040,  32659200
   3,  16,  90,  576,  4200,  34560,  317520,  3225600,  35925120
   5,  22, 114,  696,  4920,  39600,  357840,  3588480,  39553920
   6,  48, 360, 2880, 25200, 241920, 2540160, 29030400, 359251200
   7,  52, 378, 2976, 25800, 246240, 2575440, 29352960, 362517120
   8,  60, 432, 3360, 28800, 272160, 2822400, 31933440, 391910400
   9,  64, 450, 3456, 29400, 276480, 2857680, 32256000, 395176320
  10,  66, 456, 3480, 29520, 277200, 2862720, 32296320, 395539200
  11,  70, 474, 3576, 30120, 281520, 2898000, 32618880, 398805120
  13,  76, 498, 3696, 30840, 286560, 2938320, 32981760, 402433920
  14,  84, 552, 4080, 33840, 312480, 3185280, 35562240, 431827200
  15,  88, 570, 4176, 34440, 316800, 3220560, 35884800, 435093120
  17,  94, 594, 4296, 35160, 321840, 3260880, 36247680, 438721920
  19, 100, 618, 4416, 35880, 326880, 3301200, 36610560, 442350720
  20, 108, 672, 4800, 38880, 352800, 3548160, 39191040, 471744000
  21, 112, 690, 4896, 39480, 357120, 3583440, 39513600, 475009920
  23, 118, 714, 5016, 40200, 362160, 3623760, 39876480, 478638720
  ...
		

Crossrefs

Transpose: A257503.
Inverse permutation: A257506.
Row index: A257681, Column index: A257679.
Columns 1-3: A256450, A257692, A257693.
Rows 1-3: A001563, A062119, A130744 (without their initial zero-terms).
Row 4: A213167 (without the initial one).
Row 5: A052571 (without initial zeros).
Cf. also permutations A255565, A255566.
Thematically similar arrays: A035513, A054582, A246279.

Programs

Formula

A(row,1) = A256450(row-1), and for col > 1, A(row,col) = A255411(A(row,col-1)).

Extensions

Formula changed because of the changed starting offset of A256450 - Antti Karttunen, May 30 2016

A246676 Permutation of natural numbers: a(n) = A242378(A007814(n), (1+A000265(n))) - 1.

Original entry on oeis.org

1, 2, 3, 4, 5, 8, 7, 6, 9, 14, 11, 24, 13, 26, 15, 10, 17, 20, 19, 34, 21, 44, 23, 48, 25, 32, 27, 124, 29, 80, 31, 12, 33, 74, 35, 54, 37, 62, 39, 76, 41, 38, 43, 174, 45, 134, 47, 120, 49, 50, 51, 64, 53, 98, 55, 342, 57, 104, 59, 624, 61, 242, 63, 16, 65, 56, 67, 244, 69, 224, 71, 90, 73, 68
Offset: 1

Views

Author

Antti Karttunen, Sep 01 2014

Keywords

Comments

To compute a(n) we shift its binary representation right as many steps k as necessary that the result were an odd number. Then one is added to that odd number, and the prime factorization of the resulting even number is shifted the same k number of steps towards larger primes, whose product is then decremented by one to get the final result.
In the essence, a(n) tells which number in array A246275 is at the same position where n is in the array A135764. As the topmost row in both arrays is A005408 (odd numbers), they are fixed, i.e. a(2n+1) = 2n+1 for all n.
Equally: a(n) tells which number in array A246273 is at the same position where n is in the array A054582, as they are the transposes of above two arrays.

Examples

			Consider n=36, "100100" in binary. It has to be shifted two bits right that the result were an odd number 9, "1001" in binary. We see that 9+1 = 10 = 2*5 = p_1 * p_3 [where p_k denotes the k-th prime, A000040(k)], and shifting this two steps towards larger primes results p_3 * p_5 = 5*11 = 55, thus a(36) = 55-1 = 54.
		

Crossrefs

Inverse: A246675.
Even bisection halved: A246680.
More recursed versions: A246678, A246684.
Other related permutations: A209268, A246273, A246275, A135764, A054582.

Programs

Formula

a(n) = A242378(A007814(n), (1+A000265(n))) - 1. [Where the bivariate function A242378(k,n) changes each prime p(i) in the prime factorization of n to p(i+k), i.e., it's the result of A003961 iterated k times starting from n].
As a composition of related permutations:
a(n) = A246273(A209268(n)).
Other identities:
For all n >= 0, a(A005408(n)) = A005408(n). [Fixes the odd numbers].

A130128 Triangle read by rows: T(n,k) = (n - k + 1)*2^(k-1).

Original entry on oeis.org

1, 2, 2, 3, 4, 4, 4, 6, 8, 8, 5, 8, 12, 16, 16, 6, 10, 16, 24, 32, 32, 7, 12, 20, 32, 48, 64, 64, 8, 14, 24, 40, 64, 96, 128, 128, 9, 16, 28, 48, 80, 128, 192, 256, 256, 10, 18, 32, 56, 96, 160, 256, 384, 512, 512, 11, 20, 36, 64, 112, 192, 320, 512, 768, 1024, 1024
Offset: 1

Views

Author

Gary W. Adamson, May 11 2007

Keywords

Comments

T(n,k) is the number of paths from node 0 to odd k in a directed graph with 2n+1 vertices labeled 0, 1, ..., 2n+1 and edges leading from i to i+1 for all i, from i to i+2 for even i, and from i to i-2 for odd i. - Grace Work, Mar 01 2020

Examples

			First few rows of the triangle are:
  1;
  2,  2;
  3,  4,  4;
  4,  6,  8,  8;
  5,  8, 12, 16, 16;
  6, 10, 16, 24, 32, 32;
  7, 12, 20, 32, 48, 64, 64;
  ...
From _Peter Munn_, Sep 22 2022: (Start)
As a square array, showing top left:
    1,   2,   3,    4,    5,    6,    7, ...
    2,   4,   6,    8,   10,   12,   14, ...
    4,   8,  12,   16,   20,   24,   28, ...
    8,  16,  24,   32,   40,   48,   56, ...
   16,  32,  48,   64,   80,   96,  112, ...
   32,  64,  96,  128,  160,  192,  224, ...
  ...
(End)
		

Crossrefs

Row sums are A000295.
Cf. A004736, A054582 (subtable of square array), A130123.

Programs

  • Mathematica
    Table[(n - k + 1)*2^(k - 1), {n, 11}, {k, n}] // Flatten (* Michael De Vlieger, Mar 23 2020 *)
  • PARI
    T(n,k)={(n - k + 1)*2^(k-1)} \\ Andrew Howroyd, Mar 01 2020

Formula

Equals A004736 * A130123 as infinite lower triangular matrices.
As a square array, n >= 0, k >= 1, read by descending antidiagonals, A(n,k) = k * 2^n. - Peter Munn, Sep 22 2022
G.f.: x*y/( (1-x)^2 * (1-2*x*y) ). - Kevin Ryde, Sep 24 2022

Extensions

Name clarified by Grace Work, Mar 01 2020
Terms a(56) and beyond from Andrew Howroyd, Mar 01 2020

A249811 Permutation of natural numbers: a(n) = A249741(A001511(n), A003602(n)).

Original entry on oeis.org

1, 2, 3, 4, 5, 8, 7, 6, 9, 14, 11, 24, 13, 20, 15, 10, 17, 26, 19, 34, 21, 32, 23, 48, 25, 38, 27, 54, 29, 44, 31, 12, 33, 50, 35, 64, 37, 56, 39, 76, 41, 62, 43, 84, 45, 68, 47, 120, 49, 74, 51, 94, 53, 80, 55, 90, 57, 86, 59, 114, 61, 92, 63, 16, 65, 98, 67, 124, 69, 104, 71, 118, 73, 110, 75, 144, 77, 116, 79, 142, 81
Offset: 1

Views

Author

Antti Karttunen, Nov 06 2014

Keywords

Comments

In the essence, a(n) tells which number in square array A249741 (the sieve of Eratosthenes minus 1) is at the same position where n is in array A135764, which is formed from odd numbers whose binary expansions are shifted successively leftwards on the successive rows. As the topmost row in both arrays is A005408 (odd numbers), they are fixed, i.e., a(2n+1) = 2n+1 for all n.
Equally: a(n) tells which number in array A114881 is at the same position where n is in the array A054582, as they are the transposes of above two arrays.

Crossrefs

Inverse: A249812.
Similar or related permutations: A249814 ("deep variant"), A246676, A249815, A114881, A209268, A249725, A249741.
Differs from A246676 for the first time at n=14, where a(14)=20, while
A246676(14)=26.

Programs

Formula

In the following formulas, A083221 and A249741 are interpreted as bivariate functions:
a(n) = A083221(A001511(n),A003602(n)) - 1 = A249741(A001511(n),A003602(n)).
As a composition of related permutations:
a(n) = A114881(A209268(n)).
a(n) = A249741(A249725(n)).
a(n) = A249815(A246676(n)).
Other identities. For all n >= 1 the following holds:
a(A000079(n-1)) = A006093(n).

A287870 The extended Wythoff array (the Wythoff array with two extra columns) read by antidiagonals downwards.

Original entry on oeis.org

0, 1, 1, 1, 3, 2, 2, 4, 4, 3, 3, 7, 6, 6, 4, 5, 11, 10, 9, 8, 5, 8, 18, 16, 15, 12, 9, 6, 13, 29, 26, 24, 20, 14, 11, 7, 21, 47, 42, 39, 32, 23, 17, 12, 8, 34, 76, 68, 63, 52, 37, 28, 19, 14, 9, 55, 123, 110, 102, 84, 60, 45, 31, 22, 16, 10, 89, 199, 178, 165, 136, 97, 73, 50, 36, 25, 17, 11
Offset: 1

Views

Author

N. J. A. Sloane, Jun 14 2017

Keywords

Comments

From Peter Munn, Apr 28 2025: (Start)
Each row in the Wythoff array, A035513, and this extended array satisfies the Fibonacci recurrence; that is each term after the first 2 is the sum of the preceding 2 terms.
We use F_i to denote the i-th Fibonacci term, A000045(i). In particular, we refer below to F_0 = 0, F_1 = 1 and F_2 = 1 several times. Note that to fully understand the description of the relationship between neighboring columns it is important to distinguish F_1 and F_2, although they have the same integer value. Similarly, the identity of an array term should be understood here as including its position in the array, not only its integer value.
The terms of this extended Wythoff array map 1:1 onto the nonempty finite subsets of Fibonacci terms (from F_0 onwards) that do not include both F_i and F_{i+1} for any i. With this map each term is the sum of its subset image. See the table in the examples.
Full description of the mapping with its relationship to A035513:
The (unextended) Wythoff array A035513 includes every positive integer exactly once. So, using the Zeckendorf representation (see link below), the array terms map 1:1 to nonempty finite subsets of the Fibonacci terms from F_2 onwards -- more precisely, onto those that do not include both F_i and F_{i+1} for any i. (Again, each array term is the sum of the Fibonacci numbers from the relevant subset.)
As shown in the Kimberling 1995 link, when we proceed from one term to the next in a row, the indices of the Fibonacci terms in the corresponding subset are incremented. When we proceed leftwards, the indices are decremented, with the subsets for the leftmost column being those that include F_2.
And when we add 2 columns on the left of the Wythoff array, the mapping continues to decrement the indices, so the corresponding extra subsets have F_0 (new leftmost column) or F_1 as their first Fibonacci term.
Thus the terms of this extended Wythoff array map 1:1 onto the nonempty finite subsets of Fibonacci terms (from F_0 onwards) that do not include both F_i and F_{i+1} for any i. The leftmost column is the nonnegative integers: if we were to remove F_0 (value 0) from the subset for an integer in this column, the subset would form the Zeckendorf representation of the integer, as subsets do in the unextended array.
(End)

Examples

			The extended Wythoff array is the Wythoff array with two extra columns, giving the row number n and A000201(n), separated from the main array by a vertical bar:
   0   1 |  1   2   3    5    8   13   21   34    55    89   144 ...
   1   3 |  4   7  11   18   29   47   76  123   199   322   521 ...
   2   4 |  6  10  16   26   42   68  110  178   288   466   754 ...
   3   6 |  9  15  24   39   63  102  165  267   432   699  1131 ...
   4   8 | 12  20  32   52   84  136  220  356   576   932  1508 ...
   5   9 | 14  23  37   60   97  157  254  411   665  1076  1741 ...
   6  11 | 17  28  45   73  118  191  309  500   809  1309  2118 ...
   7  12 | 19  31  50   81  131  212  343  555   898  1453  2351 ...
   8  14 | 22  36  58   94  152  246  398  644  1042  1686  2728 ...
   9  16 | 25  41  66  107  173  280  453  733  1186  1919  3105 ...
  10  17 | 27  44  71  115  186  301  487  788  1275  2063  3338 ...
  11  19 | 30  49  79 ...
  12  21 | 33  54  87 ...
  13  22 | 35  57  92 ...
  14  24 | 38  62 ...
  15  25 | 40  65 ...
  16  27 | 43  70 ...
  17  29 | 46  75 ...
  18  30 | 48  78 ...
  19  32 | 51  83 ...
  20  33 | 53  86 ...
  21  35 | 56  91 ...
  22  37 | 59  96 ...
  23  38 | 61  99 ...
  24  40 | 64 ...
  25  42 | 67 ...
  26  43 | 69 ...
  27  45 | 72 ...
  28  46 | 74 ...
  29  48 | 77 ...
  30  50 | 80 ...
  31  51 | 82 ...
  32  53 | 85 ...
  33  55 | 88 ...
  34  56 | 90 ...
  35  58 | 93 ...
  36  59 | 95 ...
  37  61 | 98 ...
  38  63 | ...
  ...
From _Peter Munn_, Sep 12 2022: (Start)
In the table below, the array terms are shown in the small box at the bottom right of the cells. At the top of each cell is shown a pattern of Fibonacci terms, with "*" indicating a Fibonacci term that appears below it. Those Fibonacci terms sum to the array term. The pattern never includes "**", which would indicate 2 consecutive Fibonacci terms. Note that a Fibonacci term shown as "1" in the 2nd column is F_1, so it may accompany "2", which is F_3. In other columns a Fibonacci term shown as "1" is F_2 and may not accompany "2".
+----------+-----------+------------+------------+------------+
|      *   |      *    |       *    |       *    |       *    |
|      0 __|      1 ___|       1 ___|       2 ___|       3 ___|
|       |0 |       | 1 |        | 1 |        | 2 |        | 3 |
|----------+-----------+------------+------------+------------|
|    * *   |    * *    |     * *    |     * *    |     * *    |
|      0 __|      1 ___|       1 ___|       2 ___|       3 ___|
|    1  |1 |    2  | 3 |     3  | 4 |     5  | 7 |     8  |11 |
|----------+-----------+------------+------------+------------|
|   *  *   |   *  *    |    *  *    |    *  *    |    *  *    |
|   2  0 __|   3  1 ___|    5  1 ___|    8  2 ___|   13  3 ___|
|       |2 |       | 4 |        | 6 |        |10 |        |16 |
|----------+-----------+------------+------------+------------|
|  *   *   |  *   *    |   *   *    |   *   *    |   *   *    |
|      0 __|      1 ___|       1 ___|       2 ___|       3 ___|
|  3    |3 |  5    | 6 |   8    | 9 |  13    |15 |  21    |24 |
|----------+-----------+------------+------------+------------|
|  * * *   |  * * *    |   * * *    |   * * *    |   * * *    |
|      0   |      1    |       1    |       2    |       3    |
|    1   __|    2   ___|     3   ___|     5   ___|     8   ___|
|  3    |4 |  5    | 8 |   8    |12 |  13    |20 |  21    |32 |
|----------+-----------+------------+------------+------------|
| *    *   | *    *    |  *    *    |  *    *    |  *    *    |
|      0 __|      1 ___|       1 ___|       2 ___|       3 ___|
| 5     |5 | 8     | 9 | 13     |14 | 21     |23 | 34     |37 |
|----------+-----------+------------+------------+------------|
| *  * *   | *  * *    |  *  * *    |  *  * *    |  *  * *    |
|      0 __|      1 ___|       1 ___|       2 ___|       3 ___|
| 5  1  |6 | 8  2  |11 | 13  3  |17 | 21  5  |28 | 34  8  |45 |
|----------+-----------+------------+------------+------------|
| * *  *   | * *  *    |  * *  *    |  * *  *    |  * *  *    |
|   2  0 __|   3  1 ___|    5  1 ___|    8  2 ___|   13  3 ___|
| 5     |7 | 8     |12 | 13     |19 | 21     |31 | 34     |50 |
+----------+-----------+------------+------------+------------+
If we replace the Fibonacci terms 0, 1, 1, 2, 3, 5, ... in the main part of the cells with the powers of 2 (1, 2, 4, ...) the sums in the small boxes become the terms of A356875. From this may be seen a relationship to A054582.
- - - - -
Each row of the extended Wythoff array satisfies the Fibonacci recurrence, and may be further extended to the left using this recurrence backwards:
... -1   1   0   1 |  1   2    3    5 ...
... -1   2   1   3 |  4   7   11   18 ...
...  0   2   2   4 |  6  10   16   26 ...
...  0   3   3   6 |  9  15   24   39 ...
...  0   4   4   8 | 12  20   32   52 ...
...  1   4   5   9 | 14  23   37   60 ...
...  1   5   6  11 | 17  28   45   73 ...
...  2   5   7  12 | 19  31   50   81 ...
...  2   6   8  14 | 22  36   58   94 ...
    ...
...  5  10  15  25 | 40  65  105  170 ...
    ...
Note that multiples (*2, *3 and *4) of the top (Fibonacci sequence) row appear a little below, but shifted 2 columns to the left. Larger multiples appear further down and shifted further to the left, starting with row 15, where the terms are 5 times those in the top row and shifted 4 columns leftwards.
(End)
		

Crossrefs

Subtables: A035513 (the Wythoff array), A287869.
Related as a subtable of A357316 as A054582 is to A130128 (as a square).
See A014417 for sequences related to Zeckendorf representation.
See the formula section for the relationships with A003622, A022341, A054582, A356874, A356875.

Formula

From Peter Munn, Apr 29 2025: (Start)
A(n,k) = A356874(floor(m/2)), where m = A356875(n-1, k-1) = A054582(k-1, (A022341(n-1)-1)/2).
A(n,k) = A357316(A003622(n), k-1).
(End)

A191449 Dispersion of (3,6,9,12,15,...), by antidiagonals.

Original entry on oeis.org

1, 3, 2, 9, 6, 4, 27, 18, 12, 5, 81, 54, 36, 15, 7, 243, 162, 108, 45, 21, 8, 729, 486, 324, 135, 63, 24, 10, 2187, 1458, 972, 405, 189, 72, 30, 11, 6561, 4374, 2916, 1215, 567, 216, 90, 33, 13, 19683, 13122, 8748, 3645, 1701, 648, 270, 99, 39, 14, 59049
Offset: 1

Views

Author

Clark Kimberling, Jun 05 2011

Keywords

Comments

Transpose of A141396.
Background discussion: Suppose that s is an increasing sequence of positive integers, that the complement t of s is infinite, and that t(1)=1. The dispersion of s is the array D whose n-th row is (t(n), s(t(n)), s(s(t(n))), s(s(s(t(n)))), ...). Every positive integer occurs exactly once in D, so that, as a sequence, D is a permutation of the positive integers. The sequence u given by u(n)=(number of the row of D that contains n) is a fractal sequence. Examples:
(1) s=A000040 (the primes), D=A114537, u=A114538.
(2) s=A022343 (without initial 0), D=A035513 (Wythoff array), u=A003603.
(3) s=A007067, D=A035506 (Stolarsky array), u=A133299.
More recent examples of dispersions: A191426-A191455.

Examples

			Northwest corner:
  1...3....9....27...81
  2...6....18...54...162
  4...12...36...108..324
  5...15...45...135..405
  7...21...63...189..567
		

Crossrefs

A054582: dispersion of (2,4,6,8,...).
A191450: dispersion of (2,5,8,11,...).
A191451: dispersion of (4,7,10,13,...).
A191452: dispersion of (4,8,12,16,...).

Programs

  • Mathematica
    (* Program generates the dispersion array T of increasing sequence f[n] *)
    r=40; r1=12; c=40; c1=12;
    f[n_] :=3n (* complement of column 1 *)
    mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]]
    rows = {NestList[f, 1, c]};
    Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}];
    t[i_, j_] := rows[[i, j]];
    TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]]
    (* A191449 array *)
    Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]] (* A191449 sequence *)
    (* Program by Peter J. C. Moses, Jun 01 2011 *)

Formula

T(i,j)=T(i,1)*T(1,j)=floor((3i-1)/2)*3^(j-1).

A246273 Transpose of square array A246275.

Original entry on oeis.org

1, 2, 3, 4, 8, 5, 6, 24, 14, 7, 10, 48, 34, 26, 9, 12, 120, 76, 124, 20, 11, 16, 168, 142, 342, 54, 44, 13, 18, 288, 220, 1330, 90, 174, 32, 15, 22, 360, 322, 2196, 186, 538, 64, 80, 17, 28, 528, 436, 4912, 246, 1572, 118, 624, 74, 19, 30, 840, 666, 6858, 390, 2872, 208, 2400, 244, 62, 21
Offset: 1

Views

Author

Antti Karttunen, Aug 21 2014

Keywords

Examples

			The top-left corner of the array:
   1,     2,     4,     6,    10,    12,    16,    18,    22,   ...
   3,     8,    24,    48,   120,   168,   288,   360,   528,   ...
   5,    14,    34,    76,   142,   220,   322,   436,   666,   ...
   7,    26,   124,   342,  1330,  2196,  4912,  6858, 12166,   ...
   9,    20,    54,    90,   186,   246,   390,   550,   712,   ...
  11,    44,   174,   538,  1572,  2872,  5490,  8302, 15340,   ...
  ...
		

Crossrefs

Inverse permutation: A246274.
Transpose: A246275.
Other related permutations: A038722, A054582, A246675, A246676.
One less than A246279.
Cf. A114881.

Programs

Formula

a(n) = A246279(n) - 1.
As a composition of related permutations:
a(n) = A246275(A038722(n)).
a(n) = A246676(A054582(n-1)).

A249812 Permutation of natural numbers: a(n) = A000079(A055396(n+1)-1) * ((2*A078898(n+1))-1).

Original entry on oeis.org

1, 2, 3, 4, 5, 8, 7, 6, 9, 16, 11, 32, 13, 10, 15, 64, 17, 128, 19, 14, 21, 256, 23, 12, 25, 18, 27, 512, 29, 1024, 31, 22, 33, 20, 35, 2048, 37, 26, 39, 4096, 41, 8192, 43, 30, 45, 16384, 47, 24, 49, 34, 51, 32768, 53, 28, 55, 38, 57, 65536, 59, 131072, 61, 42, 63, 36, 65, 262144, 67, 46, 69, 524288, 71, 1048576, 73, 50, 75, 40, 77, 2097152, 79, 54, 81, 4194304, 83, 44
Offset: 1

Views

Author

Antti Karttunen, Nov 06 2014

Keywords

Comments

In the essence, a(n) tells which number in the array A135764 is at the same position where n is in the array A249741, the sieve of Eratosthenes minus 1. As the topmost row in both arrays is A005408 (odd numbers), they are fixed, i.e., a(2n+1) = 2n+1 for all n.
Equally: a(n) tells which number in array A054582 is at the same position where n is in the array A114881, as they are the transposes of above two arrays.

Crossrefs

Inverse: A249811.
Similar or related permutations: A249813 ("deep variant"), A246675, A249816, A054582, A114881, A250252, A135764, A249741, A249742.
Differs from A246675 for the first time at n=20, where a(20)=14, while A246675(20)=18.

Programs

Formula

a(n) = A000079(A055396(n+1)-1) * ((2*A078898(n+1))-1).
As a composition of related permutations:
a(n) = A054582(A250252(n)-1).
a(n) = A135764(A249742(n)).
a(n) = A246675(A249816(n)).
Other identities. For all n >= 1 the following holds:
a(A006093(n)) = A000079(n-1).

A191664 Dispersion of A014601 (numbers >2, congruent to 0 or 3 mod 4), by antidiagonals.

Original entry on oeis.org

1, 3, 2, 7, 4, 5, 15, 8, 11, 6, 31, 16, 23, 12, 9, 63, 32, 47, 24, 19, 10, 127, 64, 95, 48, 39, 20, 13, 255, 128, 191, 96, 79, 40, 27, 14, 511, 256, 383, 192, 159, 80, 55, 28, 17, 1023, 512, 767, 384, 319, 160, 111, 56, 35, 18, 2047, 1024, 1535, 768, 639
Offset: 1

Views

Author

Clark Kimberling, Jun 11 2011

Keywords

Comments

Row 1: A000225 (-1+2^n)
Row 2: A000079 (2^n)
Row 3: A055010
Row 4: 3*A000079
Row 5: A153894
Row 6: 5*A000079
Row 7: A086224
Row 8: A005009
Row 9: A052996
For a background discussion of dispersions, see A191426.
...
Each of the sequences (4n, n>2), (4n+1, n>0), (3n+2, n>=0), generates a dispersion. Each complement (beginning with its first term >1) also generates a dispersion. The six sequences and dispersions are listed here:
...
A191663=dispersion of A042948 (0 or 1 mod 4 and >1)
A054582=dispersion of A005843 (0 or 2 mod 4 and >1; evens)
A191664=dispersion of A014601 (0 or 3 mod 4 and >1)
A191665=dispersion of A042963 (1 or 2 mod 4 and >1)
A191448=dispersion of A005408 (1 or 3 mod 4 and >1, odds)
A191666=dispersion of A042964 (2 or 3 mod 4)
...
EXCEPT for at most 2 initial terms (so that column 1 always starts with 1):
A191663 has 1st col A042964, all else A042948
A054582 has 1st col A005408, all else A005843
A191664 has 1st col A042963, all else A014601
A191665 has 1st col A014601, all else A042963
A191448 has 1st col A005843, all else A005408
A191666 has 1st col A042948, all else A042964
...
There is a formula for sequences of the type "(a or b mod m)", (as in the Mathematica program below):
If f(n)=(n mod 2), then (a,b,a,b,a,b,...) is given by
a*f(n+1)+b*f(n), so that "(a or b mod m)" is given by
a*f(n+1)+b*f(n)+m*floor((n-1)/2)), for n>=1.
This sequence is a permutation of the natural numbers. - L. Edson Jeffery, Aug 13 2014

Examples

			Northwest corner:
1...3...7....15...31
2...4...8....16...32
5...11..23...47...95
6...12..24...48...96
9...19..39...79...159
		

Crossrefs

Programs

  • Mathematica
    (* Program generates the dispersion array T of the increasing sequence f[n] *)
    r = 40; r1 = 12;  c = 40; c1 = 12;
    a = 3; b = 4; m[n_] := If[Mod[n, 2] == 0, 1, 0];
    f[n_] := a*m[n + 1] + b*m[n] + 4*Floor[(n - 1)/2]
    Table[f[n], {n, 1, 30}]  (* A014601(n+2): (4+4k,5+4k) *)
    mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]]
    rows = {NestList[f, 1, c]};
    Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}];
    t[i_, j_] := rows[[i, j]];
    TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]] (* A191664 *)
    Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]] (* A191664  *)
    (* Clark Kimberling, Jun 11 2011 *)
    Grid[Table[2^k*(2*Floor[(n + 1)/2] - 1) - Mod[n, 2], {n, 12}, {k, 12}]] (* L. Edson Jeffery, Aug 13 2014 *)

A191665 Dispersion of A042963 (numbers >1, congruent to 1 or 2 mod 4), by antidiagonals.

Original entry on oeis.org

1, 2, 3, 5, 6, 4, 10, 13, 9, 7, 21, 26, 18, 14, 8, 42, 53, 37, 29, 17, 11, 85, 106, 74, 58, 34, 22, 12, 170, 213, 149, 117, 69, 45, 25, 15, 341, 426, 298, 234, 138, 90, 50, 30, 16, 682, 853, 597, 469, 277, 181, 101, 61, 33, 19, 1365, 1706, 1194, 938, 554
Offset: 1

Views

Author

Clark Kimberling, Jun 11 2011

Keywords

Comments

Row 1: A000975
Row 2: A081254
Row 3: A081253
Row 4: A052997
For a background discussion of dispersions, see A191426.
...
Each of the sequences (4n, n>2), (4n+1, n>0), (3n+2, n>=0), generates a dispersion. Each complement (beginning with its first term >1) also generates a dispersion. The six sequences and dispersions are listed here:
...
A191663=dispersion of A042948 (0 or 1 mod 4 and >1)
A054582=dispersion of A005843 (0 or 2 mod 4 and >1; evens)
A191664=dispersion of A014601 (0 or 3 mod 4 and >1)
A191665=dispersion of A042963 (1 or 2 mod 4 and >1)
A191448=dispersion of A005408 (1 or 3 mod 4 and >1, odds)
A191666=dispersion of A042964 (2 or 3 mod 4)
...
EXCEPT for at most 2 initial terms (so that column 1 always starts with 1):
A191663 has 1st col A042964, all else A042948
A054582 has 1st col A005408, all else A005843
A191664 has 1st col A042963, all else A014601
A191665 has 1st col A014601, all else A042963
A191448 has 1st col A005843, all else A005408
A191666 has 1st col A042948, all else A042964
...
There is a formula for sequences of the type "(a or b mod m)", (as in the Mathematica program below):
If f(n)=(n mod 2), then (a,b,a,b,a,b,...) is given by
a*f(n+1)+b*f(n), so that "(a or b mod m)" is given by
a*f(n+1)+b*f(n)+m*floor((n-1)/2)), for n>=1.

Examples

			Northwest corner:
1...2...5....10...21
3...6...13...26...53
4...9...18...37...74
7...14..29...58...117
8...17..34...69...138
		

Crossrefs

Programs

  • Mathematica
    (* Program generates the dispersion array T of the increasing sequence f[n] *)
    r = 40; r1 = 12;  c = 40; c1 = 12;
    a = 2; b = 5; m[n_] := If[Mod[n, 2] == 0, 1, 0];
    f[n_] := a*m[n + 1] + b*m[n] + 4*Floor[(n - 1)/2]
    Table[f[n], {n, 1, 30}]  (* A042963: (2+4k,5+4k) *)
    mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]]
    rows = {NestList[f, 1, c]};
    Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}];
    t[i_, j_] := rows[[i, j]];
    TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]]
    (* A191665 *)
    Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]]
    (* A191665  *)
Previous Showing 11-20 of 32 results. Next