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.

Showing 1-3 of 3 results.

A254131 Rectangular array A read by upward antidiagonals in which the entry in row n and column k is defined by A(n,k) = A254067(n,k) - A257499(n,k), n,k >= 1.

Original entry on oeis.org

0, 1, -1, 2, 2, -2, 41, 13, 3, -3, 30, 90, 24, 4, -4, 501, 209, 139, 35, 5, -5, 322, 1102, 388, 188, 46, 6, -6, 5041, 2253, 1703, 567, 237, 57, 7, -7, 3110, 11090, 4184, 2304, 746, 286, 68, 8, -8, 47501, 21769, 17139, 6115, 2905, 925, 335, 79, 9, -9
Offset: 1

Views

Author

L. Edson Jeffery, May 03 2015

Keywords

Examples

			A begins:
.       0     -1     -2     -3     -4     -5     -6     -7     -8     -9
.       1      2      3      4      5      6      7      8      9     10
.       2     13     24     35     46     57     68     79     90    101
.      41     90    139    188    237    286    335    384    433    482
.      30    209    388    567    746    925   1104   1283   1462   1641
.     501   1102   1703   2304   2905   3506   4107   4708   5309   5910
.     322   2253   4184   6115   8046   9977  11908  13839  15770  17701
.    5041  11090  17139  23188  29237  35286  41335  47384  53433  59482
.    3110  21769  40428  59087  77746  96405 115064 133723 152382 171041
.   47501 104502 161503 218504 275505 332506 389507 446508 503509 560510
		

Programs

  • Mathematica
    (* Array: *)
    A254131[n_, k_] := (1 + (3^n - 2^(n + 1))*(6*k - 3 + 2*(-1)^n))/6; Grid[Table[A254131[n, k], {n, 10}, {k, 10}]]
    (* Array antidiagonals flattened: *)
    Flatten[Table[(1 + (3^(n - k + 1) - 2^(n - k + 2))*(6*k - 3 + 2*(-1)^(n - k + 1)))/6, {n, 10}, {k, n}]]

Formula

A(n,k) = (1 + (3^n - 2^(n + 1))*(6*k - 3 + 2*(-1)^n))/6, n,k >= 1.

A257480 S(n) = (3 + (3/2)^v(1 + F(4*n - 3))*(1 + F(4*n - 3)))/6, n >= 1, where F(x) = (3*x + 1)/2^v(3*x + 1) for x odd, and v(y) denotes the 2-adic valuation of y.

Original entry on oeis.org

1, 1, 5, 2, 4, 1, 8, 5, 7, 5, 41, 5, 10, 2, 17, 14, 13, 4, 32, 8, 16, 1, 26, 14, 19, 8, 68, 11, 22, 5, 35, 41, 25, 7, 59, 14, 28, 5, 44, 23, 31, 41, 365, 17, 34, 5, 53, 41, 37, 10, 86, 20, 40, 2, 62, 32, 43, 17, 149
Offset: 1

Views

Author

L. Edson Jeffery, Apr 26 2015

Keywords

Comments

In the following, let F^(k)(x) denote k-fold iteration of F and defined by the recurrence F^(k)(x) = F(F^(k-1)(x)), k > 0, with initial condition F^(0)(x) = x, and let S^(k)(n) denote k-fold iteration of S and defined by the recurrence S^(k)(n) = S(S^(k-1)(n)), k > 0, with initial condition S^(0)(n) = n, where F and S are as defined above.
Theorem 1: For each x, there exists a j>0 such that F^(j)(x) == 1 (mod 4).
Theorem 2: S(n) = m if and only if S(4*n-2) = m.
Conjecture 1: For each n, there exists a k such that S^(k)(n) = 1.
Theorem 3: Conjecture 1 is equivalent to the 3x+1 conjecture.
Theorem 4: The sequence {log(S(n))/log(n)}_{n>1} is bounded with least upper bound equal to log(3)/log(2).
[I have proved Theorems 1--4 (along with several lemmas) and am trying to finish typesetting the draft containing the proofs but had been too ill to finish that work until now. The draft also contains the derivation of the function S from properties of the known function F (A075677). When that paper is completed (hopefully within two weeks) I will then upload it to the links section and delete this comment.]

References

  • K. H. Metzger, Untersuchungen zum (3n+1)-Algorithmus, Teil II: Die Konstruktion des Zahlenbaums, PM (Praxis der Mathematik in der Schule) 42, 2000, 27-32.

Crossrefs

Cf. A241957, A254067, A254311, A257499, A257791 (all used in the proof of Thm 4).
Cf. A253676 (iteration of S terminating at the first occurrence of 1, assuming the 3x+1 conjecture).

Programs

  • Mathematica
    v[x_] := IntegerExponent[x, 2]; f[x_] := (3*x + 1)/2^v[3*x + 1]; s[n_] := (3 + (3/2)^v[1 + f[4*n - 3]]*(1 + f[4*n - 3]))/6; Table[s[n], {n, 59}]
  • PARI
    a(n) = my(x=3*n-2, v=valuation(x, 2)); x>>=v; v=valuation(x+1, 2); (((x>>v)+1)*3^(v-1)+1)/2; \\ Ruud H.G. van Tol, Jul 30 2023

A257499 Array A read by upward antidiagonals in which the entry in row n and column k is defined by A(n,k) = (1 + 2^n*(6*k-3+2*(-1)^n))/3, n,k >= 1.

Original entry on oeis.org

1, 7, 5, 3, 15, 9, 27, 19, 23, 13, 11, 59, 35, 31, 17, 107, 75, 91, 51, 39, 21, 43, 235, 139, 123, 67, 47, 25, 427, 299, 363, 203, 155, 83, 55, 29, 171, 939, 555, 491, 267, 187, 99, 63, 33, 1707, 1195, 1451, 811, 619, 331, 219, 115, 71, 37
Offset: 1

Views

Author

L. Edson Jeffery, Apr 27 2015

Keywords

Comments

Conjecture (now Lemma 1): The sequence is a permutation of the odd natural numbers.
Proof from Max Alekseyev, Apr 29 2015:
Reformulating the conjecture, we need to prove that for any integer m >= 0, the equation (1 + 2^n*(6*k - 3 + 2*(-1)^n))/3 = 2*m + 1 has a unique solution in integers n,k >= 1. Simplifying a bit, we have
(1) 2^n*(6*k - 3 + 2*(-1)^n) = 6*m + 2.
Since the factor (6*k - 3 + 2*(-1)^n) is odd, n is uniquely defined by n = A007814(6*m+2). Since 6*m+2 is even, we have n>=1. Dividing (1) by 2^n and rearranging, we further get
(2) 6*k = (6*m + 2)/2^n + 3 - 2*(-1)^n.
To prove the uniqueness of k, it remains to prove that the r.h.s of (2) is divisible by 6. To that end, the value of n implies that (6*m + 2)/2^n is odd; hence the r.h.s. of (2) is even and thus divisible by 2. Now, taking the r.h.s. modulo 3, we get
(6*m + 2)/2^n + 3 - 2*(-1)^n == 2/(-1)^n + 0 - 2*(-1)^n == 0 (mod 3);
so the r.h.s. of (2) is also divisible by 3. Therefore k is uniquely defined by
k = ((6*m + 2)/2^n + 3 - 2*(-1)^n)/6.
Finally, it is easy to see that (6*m + 2)/2^n >= 1, so k >= 1.
QED
Let v(y) denote the 2-adic valuation of y (see A007814). For x an odd natural number, define the function F(x) = (3*x+1)/2^v(3*x+1) (see A075677). Let F^(j)(x) denote k-fold iteration of F and defined by the recurrence F^(j)(x) = F(F^(j-1)(x)), j>0, with initial condition F^(0)(x) = x.
Lemma 2: The following statements are equivalent. (i) Row n of A is the set of all odd m such that F^(n)(4*m-3) == 1 (mod 4); (ii) Row n of A is the set of all odd m such that v(1+F(4m-3)) = n.

Examples

			Array A begins:
.       1     5     9    13    17     21     25     29     33     37
.       7    15    23    31    39     47     55     63     71     79
.       3    19    35    51    67     83     99    115    131    147
.      27    59    91   123   155    187    219    251    283    315
.      11    75   139   203   267    331    395    459    523    587
.     107   235   363   491   619    747    875   1003   1131   1259
.      43   299   555   811  1067   1323   1579   1835   2091   2347
.     427   939  1451  1963  2475   2987   3499   4011   4523   5035
.     171  1195  2219  3243  4267   5291   6315   7339   8363   9387
.    1707  3755  5803  7851  9899  11947  13995  16043  18091  20139
		

Crossrefs

Cf. A255138 (column 1).

Programs

  • Mathematica
    (* Array: *)
    Grid[Table[(1 + 2^n*(6*k - 3 + 2*(-1)^n))/3, {n, 10}, {k, 10}]]
    (* Array antidiagonals flattened: *)
    Flatten[Table[(1 + 2^(n - k + 1)*(6*k - 3 + 2*(-1)^(n - k + 1)))/3, {n, 10}, {k, n}]]
Showing 1-3 of 3 results.