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-4 of 4 results.

A265100 a(n) = 9*A005836(n) + 5, n >= 1.

Original entry on oeis.org

5, 14, 32, 41, 86, 95, 113, 122, 248, 257, 275, 284, 329, 338, 356, 365, 734, 743, 761, 770, 815, 824, 842, 851, 977, 986, 1004, 1013, 1058, 1067, 1085, 1094, 2192, 2201, 2219, 2228, 2273, 2282, 2300, 2309, 2435, 2444, 2462, 2471, 2516, 2525
Offset: 1

Views

Author

L. Edson Jeffery, Dec 01 2015

Keywords

Comments

Let C(m) denote the m-th Catalan number (A000108). Let == denote congruence and =!= its negation. Vladimir Reshetnikov asked (see link) how many n exist such that C(n) == 1 (mod 6). It was pointed out by Robert Israel that the only known n are in {1,3,31,255}. Since C(n) is odd if and only if n = 2^m - 1, for some m, Emmanuel Vantieghem (see links) stated the stronger conjecture that C(2^n-1) == 0 (mod 3), for all n>8. This is the motivation for the following.
If n is an integer such that the congruences C(n) == 0 (mod 3) and C(n-1) =!= 0 (mod 3) hold simultaneously, then we call n a "block number." A sequence {n, n+1, ..., n+k-1} of consecutive numbers is called a "block" (of order k), if C(n+i) == 0 (mod 3), for all i such that 0 <= i < k, and if C(n-1) =!= 0 (mod 3) (i.e., if n is a block number) and C(n+k) =!= 0 (mod 3).
If m is an integer such that the congruences C(m) =!= 0 (mod 3) and C(m-1) == 0 (mod 3) hold simultaneously, then we call m a "gap number." A sequence {m, m+1, ..., m+j-1} of consecutive numbers is called a "gap" (of order j), if C(m+i) =!= 0 (mod 3), for all i such that 0 <= i < j, and if C(m-1) == 0 (mod 3) (i.e., if m is a gap number) and C(m+j) == 0 (mod 3). (The sequence A265104 is conjectured to contain all possible gap numbers.) If C(n) == 0 (mod 3), then we say that n is "gap-avoiding."
It follows that if {n, n+1, ..., n+k-1} is a block with block number n, then n+k is a gap number, and if {m, m+1, ..., m+j-1} is a gap with gap number m, then m+j is a block number.
Conjecture 1: The sequence contains all possible block numbers.
Conjecture 2: If m is a block number, then 3*m - 1 is a block number.
Conjecture 3: If C(n) == 0 (mod 3), then C(3*n-1) == 0 (mod 3) or, what is the same thing, if n lies in a block, then 3*n - 1 lies in a block.
Conjecture 4: Assuming that A265104 contains all possible gap numbers, let B(n) denote the block with block number a(n), n >= 1, so that B(n) = {a(n), a(n)+1, ..., A265104(n)-1}. The (flattened) sequence {B(1), B(2), ...} of blocks contains all numbers m such that the base 3 representations of m and m+1 both contain at least one 2 and is identical to A111018.
Conjecture 5: C(n) == 0 (mod 3) if and only if the base 3 representations of n and n + 1 both contain at least one 2. [This conjecture has been proved by Robert Israel (see link for the proof)].
Theorem 1: The following statements are equivalent to Vantieghem's conjecture stated above: (i) For all m>8, 2^m-1 is gap-avoiding; (ii) C(2^n-1) == 0 (mod 3) if and only if the base 3 representations of 2^n - 1 and 2^n both contain at least one 2.
Proof: For (i), the statement obviously follows from the definitions, and (ii) follows from the proof of Conjecture 5.

Crossrefs

A000108 (Catalan numbers).

Programs

  • Mathematica
    a005836[1] := 0; a005836[n_] := If[OddQ[n], 3*a005836[Floor[(n + 1)/2]], a005836[n - 1] + 1]; a265100[n_] := 9*a005836[n] + 5; Table[a265100[n], {n, 46}]
    5 + 9 Join[{0}, Accumulate[Table[(3^IntegerExponent[n, 2] + 1)/2, {n, 57}]]] (* Vincenzo Librandi, Dec 03 2015 *)

Formula

Conjecture: a(n) = A265104(n) - A085296(n).

A111018 Indices of Catalan numbers that are divisible by 3.

Original entry on oeis.org

5, 6, 7, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 32, 33, 34, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 86, 87, 88, 95, 96, 97, 98, 99, 100
Offset: 1

Views

Author

Robert G. Wilson v, Sep 09 2005

Keywords

Comments

Conjecture: The sequence contains all numbers n such that n and n+1 are both in the sequence A074940, or, equivalently, such that neither n nor n+1 is in the sequence A005836. - L. Edson Jeffery, Dec 02 2015
The asymptotic density of this sequence is 1 (Burns, 2016). - Amiram Eldar, Jan 26 2021

Crossrefs

Programs

A265159 Rectangular array A read by upward antidiagonals in which the entry in row n and column k is defined by A(n,k) = 5 + 9*A005836(2^(k - 1)*(2 n - 1)), n,k >= 1.

Original entry on oeis.org

5, 32, 14, 86, 95, 41, 113, 257, 284, 122, 248, 338, 770, 851, 365, 275, 743, 1013, 2309, 2552, 1094, 329, 824, 2228, 3038, 6926, 7655, 3281, 356, 986, 2471, 6683, 9113, 20777, 22964, 9842, 734, 1067, 2957, 7412, 20048, 27338, 62330, 68891, 29525
Offset: 1

Views

Author

L. Edson Jeffery, Dec 03 2015

Keywords

Comments

Conjecture 1: The array contains without duplication all possible "block numbers" defined in A265100.

Examples

			Array A begins:
.      5    14    41    122    365    1094    3281     9842    29525
.     32    95   284    851   2552    7655   22964    68891   206672
.     86   257   770   2309   6926   20777   62330   186989   560966
.    113   338  1013   3038   9113   27338   82013   246038   738113
.    248   743  2228   6683  20048   60143  180428   541283  1623848
.    275   824  2471   7412  22235   66704  200111   600332  1800995
.    329   986  2957   8870  26609   79826  239477   718430  2155289
.    356  1067  3200   9599  28796   86387  259160   777479  2332436
.    734  2201  6602  19805  59414  178241  534722  1604165  4812494
		

Crossrefs

Programs

  • Mathematica
    (* Array: *)
    a005836[1] := 0; a005836[n_] := If[OddQ[n], 3*a005836[Floor[(n + 1)/2]], a005836[n - 1] + 1]; a265159[n_, k_] := 5 + 9*a005836[2^(k - 1)*(2 n - 1)]; Grid[Table[a265159[n, k], {n, 9}, {k, 9}]]
    (* Array antidiagonals flattened: *)
    a005836[1] := 0; a005836[n_] := If[OddQ[n], 3*a005836[Floor[(n + 1)/2]], a005836[n - 1] + 1]; a265159[n_, k_] := 5 + 9*a005836[2^(k - 1)*(2 n - 1)]; Flatten[Table[a265159[n - k + 1, k], {n, 9}, {k, n}]]

Formula

Conjecture 2: A(n,k) = (A055246(n)*3^k + 1)/2, so the array and A265100 are related to Cantor's ternary set.
G.f. for row n (conjectured): f(n,x) = x*(A265100(n)-(A265100(n)+1)*x)/((1-x)*(1-3*x)).

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

Original entry on oeis.org

8, 35, 26, 89, 107, 80, 116, 269, 323, 242, 251, 350, 809, 971, 728, 278, 755, 1052, 2429, 2915, 2186, 332, 836, 2267, 3158, 7289, 8747, 6560, 359, 998, 2510, 6803, 9476, 21869, 26243, 19682, 737, 1079, 2996, 7532, 20411, 28430, 65609, 78731, 59048
Offset: 1

Views

Author

L. Edson Jeffery, Dec 03 2015

Keywords

Comments

Conjecture 1: The array contains without duplication all possible "gap numbers" as defined in A265100.

Examples

			Array A begins:
.      8    26    80    242    728    2186    6560    19682    59048
.     35   107   323    971   2915    8747   26243    78731   236195
.     89   269   809   2429   7289   21869   65609   196829   590489
.    116   350  1052   3158   9476   28430   85292   255878   767636
.    251   755  2267   6803  20411   61235  183707   551123  1653371
.    278   836  2510   7532  22598   67796  203390   610172  1830518
.    332   998  2996   8990  26972   80918  242756   728270  2184812
.    359  1079  3239   9719  29159   87479  262439   787319  2361959
.    737  2213  6641  19925  59777  179333  538001  1614005  4842017
		

Crossrefs

Programs

  • Mathematica
    (* Array: *)
    a005836[1] := 0; a005836[n_] := If[OddQ[n], 3*a005836[Floor[(n + 1)/2]], a005836[n - 1] + 1]; a265159[n_, k_] := 5 + 9*a005836[2^(k - 1)*(2 n - 1)]; a265161[n_, k_] := (3/2)*(3^k - 1) + a265159[n, k]; Grid[Table[a265161[n, k], {n, 9}, {k, 9}]]
    (* Array antidiagonal flattened: *)
    a005836[1] := 0; a005836[n_] := If[OddQ[n], 3*a005836[Floor[(n + 1)/2]], a005836[n - 1] + 1]; a265159[n_, k_] := 5 + 9*a005836[2^(k - 1)*(2 n - 1)]; a265161[n_, k_] := (3/2)*(3^k - 1) + a265159[n, k]; Flatten[Table[a265161[n - k + 1, k], {n, 9}, {k, n}]]

Formula

Conjecture 2: A(n,k) = A191107(n)*3^k - 1.
Showing 1-4 of 4 results.