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

A190899 Positive integers with recursively self-conjugate partitions.

Original entry on oeis.org

1, 3, 4, 6, 9, 10, 11, 12, 15, 16, 17, 18, 21, 22, 24, 25, 27, 28, 31, 33, 34, 36, 37, 38, 40, 42, 43, 44, 45, 47, 48, 49, 51, 54, 55, 56, 57, 58, 59, 60, 61, 64, 66, 67, 68, 69, 70, 71, 72, 73, 75, 76, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 93, 94, 96, 97, 98, 99, 100, 101, 102, 103, 105, 106
Offset: 1

Views

Author

John W. Layman, May 23 2011

Keywords

Comments

A partition is self-conjugate if it is fixed under conjugation and it is recursively self-conjugate if it is self-conjugate and the portions below and to the right of its Durfee square are recursively self-conjugate. (See the Keith paper for a more detailed description.)
Only a finite number of positive integers do not have a recursively self-conjugate partition. The list is given in A190900.
Integers expressible as a_0^2 + 2*a_1^2 + ... + 2^k*a_k^2 with [a_0, a_1, .., a_k] a non-squashing partition. [See Keith link, p. 6]

Examples

			From _Michael De Vlieger_, Oct 23 2018: (Start)
None of the partitions of 5, {{5}, {4,1}, {3,2}, {3,1,1}, {2,2,1}, {2,1,1,1}, {1,1,1,1,1}} are self-conjugate, thus 5 is not in the sequence.
The partition {4,4,2,2} of 12 is self-conjugate and is made up of Durfee squares thus 12 is in the sequence.
The partition {8,5,5,5,4,1,1,1} of 30 is self-conjugate. We eliminate the Durfee square {4,4,4,4} which leaves us with {4,1,1,1} which is self-conjugate, but when we eliminate the Durfree square {1} from this, we are left with {1,1,1} which is not self-conjugate. There are no other self-conjugate partitions of 30, therefore 30 is not in the sequence.
Both self-conjugate partitions of 32 are not recursively so. Thus 32 is not in the sequence. (End)
		

Crossrefs

Cf. A190900.

Programs

  • Mathematica
    f[n_] := Block[{w = {n}, c}, c[x_] := Apply[Times, Most@ x - Reverse@ Accumulate@ Reverse@ Rest@ x]; Reap[Do[Which[And[Length@ w == 2, SameQ @@ w], Sow[w]; Break[], Length@ w == 1, Sow[w]; AppendTo[w, 1], c[w] > 0, Sow[w]; AppendTo[w, 1], True, Sow[w]; w = MapAt[1 + # &, Drop[w, -1], -1] ], {i, Infinity}] ][[-1, 1]] ]; With[{n = 11}, TakeWhile[Union@ Flatten@ Array[Map[Total@ MapIndexed[#1^2*2^First[#2 - 1] &, #] &, f[#]] &, n], # <= n^2 &]] (* Michael De Vlieger, Oct 30 2018 *)

A321223 a(n) is the number of recursively self-conjugate partitions of n.

Original entry on oeis.org

1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 2, 1, 0, 0, 1, 0, 1, 1, 0, 2, 1, 2, 0, 1, 0, 1, 1, 1, 1, 0, 1, 2, 2, 0, 1, 0, 0, 1, 2, 1, 2, 1, 1, 1, 2, 0, 0, 1, 0, 2, 1, 1, 1, 2, 1, 2, 1, 0, 1, 1, 0, 1, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 1, 2, 1, 0, 2, 1, 0, 1, 1, 1, 2, 2, 1, 1, 3, 0, 2
Offset: 1

Views

Author

Michael De Vlieger, Oct 31 2018

Keywords

Comments

A recursively self-conjugate partition L has a conjugate L* = L. Further, elimination of the Durfee square and leg (conjugate with the arm) to leave the arm L_1. L_1 likewise has conjugate L_1* = L_1. We continue taking the arm, eliminating the new Durfee square and leg in this manner until the entire partition is processed and all arms are self-conjugate.
We can define a recursively self-conjugate partition L by placing a series S of squares s_k in position k, whose side-lengths decrease as k increases, in the following manner. We place the first square in the upper left corner, then set 2^(k - 1) squares s_k in all places wherein we have bounds by axis or previous square to the left and top. Thereby we can abbreviate all recursively self-conjugate partitions L by S(L). For example, (5,4,4,4,1) = {4,1}, and (10,9,8,7,6,5,4,3,2,1) = {5,3,1,1}. (See Keith 2011 page 9 Fig. 3.)
A190900 = positions of 0 in a(n).
Observation: the graph of this sequence separates into two distinct bands for n greater than approximately 10,000. Values of a(n) for n mod 3 = 0 or 1 tend to be greater than a(n) for n mod 3 = 2. Even within the upper band, we have the mean a(n) for n mod 3 = 0 distinct from the mean a(n) for n mod 3 = 1. See linked graphs. - Michael De Vlieger, Dec 10 2018

Examples

			a(2) = 0 since neither (2) nor (1,1) is recursively symmetrical.
a(6) = 1 since the partition (3,2,1) of 6 is recursively symmetrical. S(3,2,1) = {2,1}.
a(27) = 2 since both (6,6,6,3,3,3) and (6,5,5,5,5,1) are recursively self-conjugate. S(6,6,6,3,3,3) = {3,3}; S(6,5,5,5,5,1) = {5,1}.
a(103) = 3 since there are 3 recursively self-conjugate partitions of 103: (13,13,13,10,10,10,7,6,6,6,3,3,3), (13,12,12,12,12,8,7,6,5,5,5,5,1), and (13,12,12,10,9,9,9,9,9,4,3,3,1). These can be stated in terms of recursive squares as {7,3,3}, {7,5,1}, and {9,3,1} respectively.
		

Crossrefs

Programs

  • Mathematica
    f[w_] := Block[{k}, k = Total@ w; Total@ Map[Apply[Function[{s, t}, s Array[Boole[t <= # <= s + t - 1] &, k] ], #] &, Apply[Join, Prepend[Table[Function[{v, c}, Map[{w[[k]], # + 1} &, Map[Total[v #] &, Tuples[{0, 1}, {Length@ v}]]]] @@ {Most@ #, ConstantArray[1, Length@ # - 1]} &@ Take[w, k], {k, 2, Length@ w}], {{w[[1]], 1}}]]] ]; g[n_] := Block[{w = {n}, c}, c[x_] := Apply[Times, Most@ x - Reverse@ Accumulate@ Reverse@ Rest@ x]; Reap[Do[Which[And[Length@ w == 2, SameQ @@ w], Sow[w]; Break[], Length@ w == 1, Sow[w]; AppendTo[w, 1], c[w] > 0, Sow[w]; AppendTo[w, 1], True, Sow[w]; w = MapAt[1 + # &, Drop[w, -1], -1] ], {i, Infinity}] ][[-1, 1]] ]; Block[{n = 12, a}, a = Merge[Map[<| #1 -> #2 |> & @@ # &, #], Identity] &@ TakeWhile[Sort@ Map[{Total@ #2, #1, #2} & @@ {#, f[#]} &, Apply[Join, Array[g, n]] ], First@ # <= n^2 &][[All, 1 ;; 2]]; Array[Length[Lookup[a, #] /. k_ /; MissingQ@ k -> {}] &, Length@ a] ]

A322156 Irregular triangle where row n includes all decreasing sequences S = {k_0 = n, k_1, k_2, ..., k_m} in reverse lexicographic order such that the sum of subsequent terms k_j for all i < j <= m does not exceed any k_i.

Original entry on oeis.org

1, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 3, 3, 1, 3, 1, 1, 3, 2, 3, 2, 1, 3, 3, 4, 4, 1, 4, 1, 1, 4, 2, 4, 2, 1, 4, 2, 1, 1, 4, 2, 2, 4, 3, 4, 3, 1, 4, 4, 5, 5, 1, 5, 1, 1, 5, 2, 5, 2, 1, 5, 2, 1, 1, 5, 2, 2, 5, 3, 5, 3, 1, 5, 3, 1, 1, 5, 3, 2, 5, 4, 5, 4, 1, 5, 5, 6, 6, 1, 6, 1, 1, 6, 2, 6, 2, 1, 6, 2, 1, 1, 6, 2, 2, 6
Offset: 1

Views

Author

Michael De Vlieger, Dec 11 2018

Keywords

Comments

Algorithm:
Let S be a sequence starting with n. Let k be the index of a term in S, with n at position k = 0. Let S_r be the r-th sequence in row n.
Starting with S_1 = {n}, we either (A) append a 1 to the left of S_r, or (B) we drop the most recently-appended term S_(k) and increment the rightmost term (k - 1).
By default we execute (A) and test according to the following. Consider the reversed accumulation A_(r + 1) = Sum(reverse(S_(k + 1))) = Sum(k_m, k_(m - 1), ..., k_2, k_1). If S_r - A_(r + 1) contains nothing less than 0, then S_(k + 1) is retained, otherwise we execute (B).
We end after k_1 = n, since otherwise we would enter an endless loop that also increments k_0 ad infinitum.
The first sequence S in row n is {n} while the last is {n, n}.
All rows n contain {{n}, {n, 1}, {n, n}}.
Only one repeated term k may appear at the end of any S in row n.
The longest possible sequence S in row n has 2 + floor(log_2(n)) terms = 2 + A113473(n).
The sequence S describes unique integer partitions L that are recursively symmetrical. Example: We can convert S = {4, 2, 1} into the partition (7, 6, 5, 4, 3, 2, 1), a partition of N = 28. We set a 4X Durfee square with its upper-left corner at origin. Then we set 2^k = 2^1 = 2 2X squares, each with its upper-left corner in any coordinate bounded at left and top by either a previously-lain square or an axis. Finally, we set 2^2 = 4 1X squares as above once again. We obtain a Ferrer diagram as below, with the k marked, i.e., the 1st term 4X, the 2nd term 2X, the 3rd term 1X squares:
0 0 0 0 1 1 2
0 0 0 0 1 1
0 0 0 0 2
0 0 0 0
1 1 2
1 1
2
The resulting partition L is recursively self-conjugate; its arms are identical to its legs. We can eliminate the Durfee square and the other appendage and have a symmetrical partition L_1 with Durfee square of k_1 units, etc.
Were we to admit either more than 1 repeated k or a term such that S_k - A_(k + 1) had differences less than 1, we would have overlapping squares in the Ferrer diagram. Such diagrams are generated by larger n and all resulting diagrams are unique given the described algorithm.
The sequences S in row n, converted into integer partitions L, sum to n^2 <= N <= 3 * n^2.

Examples

			Triangle begins:
1; 1,1;
2; 2,1; 2,1,1; 2,2;
3; 3,1; 3,1,1; 3,2; 3,2,1; 3,3;
4; 4,1; 4,1,1; 4,2; 4,2,1; 4,2,1,1; 4,2,2; 4,3; 4,3,1; 4,4;
...
Row n = 5 starts with S_1 = 5. We append 1 to get {5,1}. 1 does not exceed 5, thus S_2 = {5,1}. We append 1 to get {5,1,1}. A = {1,2}; {5,1}-{2,1} = {3,0}, thus S_3 = {5,1,1} and we drop the last term and increment the new last term to get {5,2}. S_4 = {5,2}, and the ensuing terms {5,2,1}, {5,2,1,1}, {5,2,2} enter into the row. Since there are repeated terms at the last sequence, we drop the last term and increment the new last to get {5,3}. The terms {5,3,1}, {5,3,1,1}, {5,3,2}, {5,3,2,1}, are admitted. {5,3,2,1,1} has A = {1,2,4,6}. {5,3,2,1}-{6,4,2,1} = {-1,1,0,0}: {5,3,2,1,1} cannot be admitted, so we drop the last term and increment to {5,3,2,2} but the sum of the last two terms exceeds the second and we drop the last term and increment to {5,3,3}. For similar reasons, this cannot be admitted, so we drop the last term and increment to {5,4}. This enters as well as {5,4,1}. Since any appendage or increment proves invalid, we end up incrementing to {5,5}. The two terms are the same, therefore we end the row n = 5.
		

Crossrefs

Programs

  • Mathematica
    (* Generate sequence: *)
    f[n_] := Block[{w = {n}, c}, c[x_] := Apply[Times, Most@ x - Reverse@ Accumulate@ Reverse@ Rest@ x]; Reap[Do[Which[And[Length@ w == 2, SameQ @@ w], Sow[w]; Break[], Length@ w == 1, Sow[w]; AppendTo[w, 1], c[w] > 0, Sow[w]; AppendTo[w, 1], True, Sow[w]; w = MapAt[1 + # &, Drop[w, -1], -1]], {i, Infinity}] ][[-1, 1]] ]; Array[f, 6] // Flatten
    (* Convert S = row n to standard partition: *)
    g[w_] := Block[{k}, k = Total@ w; Total@ Map[Apply[Function[{s, t}, s Array[Boole[t <= # <= s + t - 1] &, k] ], #] &, Apply[Join, Prepend[Table[Function[{v, c}, Map[{w[[k]], # + 1} &, Map[Total[v #] &, Tuples[{0, 1}, {Length@ v}]]]] @@ {Most@ #, ConstantArray[1, Length@ # - 1]} &@ Take[w, k], {k, 2, Length@ w}], {{w[[1]], 1}}]]] ]

Formula

Row n contains A000123(n) = 2*A033485(n) sequences S.

A322457 Irregular triangle: Row n contains numbers k that have recursively symmetrical partitions having Durfee square with side length n.

Original entry on oeis.org

1, 3, 4, 6, 10, 12, 9, 11, 15, 17, 21, 27, 16, 18, 22, 24, 28, 34, 36, 38, 40, 48, 25, 27, 31, 33, 37, 43, 45, 47, 49, 55, 57, 59, 61, 75, 36, 38, 42, 44, 48, 54, 56, 58, 60, 66, 68, 70, 72, 78, 80, 84, 86, 90, 108, 49, 51, 55, 57, 61, 67, 69, 71, 73, 79, 81
Offset: 1

Views

Author

Michael De Vlieger, Dec 11 2018

Keywords

Comments

For all n, n^2 <= k <= 3*n^2.
For n > 5, some k may have more than 1 recursively self-conjugate partitions in the same row. For example, k = 90 in row 6 has two recursively self-conjugate partitions (RSCPs) with Durfee square of 6: (12,12,12,9,9,9,6,6,6,3,3,3) and (12,11,11,11,11,7,6,5,5,5,5,1). These RSCPs can be defined by dendritically laying out squares in the series {6,3,3} and {6,5,1} respectively.

Examples

			Triangle begins:
Row 1:   1,  3;
Row 2:   4,  6, 10, 12;
Row 3:   9, 11, 15, 17, 21, 27;
Row 4:  16, 18, 22, 24, 28, 34, 36, 38, 40, 48;
        ...
Row 2 contains the following recursively self-conjugate partitions with Durfee square with side length 2. Below are diagrams that place {2^0, 2^1, 2^2, ... 2^(m-1)} squares of side lengths in S = {k_1, k_2, k_3, ..., k_m}:
(2,2), sum 4, or in terms of squares, {2}:
   11
   11;
(3,2,1), sum 6, or in terms of squares, {2,1}:
   112
   11
   2;
(4,3,2,1), sum 10, or in terms of squares, {2,1,1}:
   1123
   113
   23
   3;
(4,4,2,2), sum 12, or in terms of squares, {2,2}:
   1122
   1122
   22
   22.
		

Crossrefs

Programs

  • Mathematica
    f[n_] := Block[{w = {n}, c}, c[x_] := Apply[Times, Most@ x - Reverse@ Accumulate@ Reverse@ Rest@ x]; Reap[Do[Which[And[Length@ w == 2, SameQ @@ w], Sow[w]; Break[], Length@ w == 1, Sow[w]; AppendTo[w, 1], c[w] > 0, Sow[w]; AppendTo[w, 1], True, Sow[w]; w = MapAt[1 + # &, Drop[w, -1], -1] ], {i, Infinity}] ][[-1, 1]] ]; Array[Union@ Map[Total@ MapIndexed[#1^2*2^First[#2 - 1] &, #] &, f[#]] &, 7] // Flatten

Formula

First term of row n = n^2 = A000290(n).
Last term of row n = 3*n^2 = 3*A000290(n).

A323034 Where records occur in A321223.

Original entry on oeis.org

1, 27, 103, 175, 198, 310, 411, 495, 627, 675, 720, 838, 880, 1008, 1014, 1191, 1245, 1296, 1575, 1776, 1911, 1953, 2011, 2136, 2160, 2416, 2502, 2673, 2736, 3015, 3123, 3195, 3270, 3450, 3528, 3600, 3696, 4041, 4248, 4251, 4323, 4356, 4410, 4518, 4531, 4716
Offset: 1

Views

Author

Michael De Vlieger, Jan 02 2019

Keywords

Comments

Numbers k that set records for the number m of recursively self-conjugate partitions (RCSPs).
1 is the only square in the sequence.
The graph of A321223 suggests there is a finite number of numbers k with a given number m of RSCPs (not all such k appear here). We know that A190900 (positive integers without RSCPs) is finite. For index i <= 2^16, there are 6 squares in A321223, i.e., those of {1, 2, 3, 5, 8}, that have just 1 RSCP; there are 120 nonsquares 3 <= k <= 590 in A321223 that have m = 1 RSCP. In the same range, there are 127 numbers 27 <= k <= 830 in A321223 that have m = 2 RSCPs, and 142 numbers 103 <= k <= 1280 in A321223 that have m = 3 RSCPs. This sequence includes many of the first terms k of these finite sequences, all k having m RSCPs.
Examining the smallest 381 terms (i.e., all k < 2^16) and the plot of A321223, we observe the following:
1. a(3) = 103 and a(23) = 2011 are the only primes.
2. a(2) = 27 = 3^3 and a(64) = 6561 = 3^8 are the only prime powers.
3. Numbers k such that k mod 3 = 2 are never in this sequence.
4. Only k in {1, 103, 175, 310, 838, 880, 2011, 2416, 4531, 4720, 5872, 11248, 11632, 12400, 15136, 16081, 19696, 20464, 29296, 40816, 51568, 52336} are congruent to 1 (mod 3); this of course includes both primes 103 and 2011. It appears that there are yet more k congruent to 1 (mod 3) greater than 2^16.

Examples

			RSCPs of the first 3 terms:
  a(1) = 1:   (1).
  a(2) = 27:  (6,6,6,3,3,3), (6,5,5,5,5,1).
  a(3) = 103: (13,13,13,10,10,10,7,6,6,6,3,3,3),
              (13,12,12,12,12,8,7,6,5,5,5,5,1),
              (13,12,12,10,9,9,9,9,9,4,3,3,1).
RSCPs stated in terms of recursive Durfee squares for the first 5 terms:
  a(1) = 1:   {1}.
  a(2) = 27:  {3,3}, {5,1}.
  a(3) = 103: {7,3,3}, {7,5,1}, {9,3,1}.
  a(4) = 175: {9,5,3,1}, {11,3,3}, {11,5,1}, {13,1,1}.
  a(5) = 198: {10,5,2,2}, {10,7}, {12,3,3}, {12,5,1}, {14,1}.
  a(6) = 310: {12,7,3,2}, {12,9,1}, {14,5,4}, {14,7,2},
              {16,3,3}, {16,5,1}.
		

Crossrefs

Programs

  • Mathematica
    f[w_] := Block[{k}, k = Total@ w; Total@ Map[Apply[Function[{s, t}, s Array[Boole[t <= # <= s + t - 1] &, k] ], #] &, Apply[Join, Prepend[Table[Function[{v, c}, Map[{w[[k]], # + 1} &, Map[Total[v #] &, Tuples[{0, 1}, {Length@ v}]]]] @@ {Most@ #, ConstantArray[1, Length@ # - 1]} &@ Take[w, k], {k, 2, Length@ w}], {{w[[1]], 1}}]]] ]; g[n_] := Block[{w = {n}, c}, c[x_] := Apply[Times, Most@ x - Reverse@ Accumulate@ Reverse@ Rest@ x]; Reap[Do[Which[And[Length@ w == 2, SameQ @@ w], Sow[w]; Break[], Length@ w == 1, Sow[w]; AppendTo[w, 1], c[w] > 0, Sow[w]; AppendTo[w, 1], True, Sow[w]; w = MapAt[1 + # &, Drop[w, -1], -1] ], {i, Infinity}] ][[-1, 1]] ]; Block[{n = 30, a, s}, a = Merge[Map[<| #1 -> #2 |> & @@ # &, #], Identity] &@ TakeWhile[Sort@ Map[{Total@ #2, #1, #2} & @@ {#, f[#]} &, Apply[Join, Array[g, n]] ], First@ # <= n^2 &][[All, 1 ;; 2]]; s = Array[Length[Lookup[a, #] /. k_ /; MissingQ@ k -> {}] &, Length@ a]; Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]]

A323035 Records in A321223.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 17, 18, 23, 25, 26, 28, 29, 30, 32, 34, 37, 41, 42, 48, 49, 50, 51, 56, 57, 59, 61, 68, 71, 72, 75, 76, 79, 80, 81, 82, 84, 86, 88, 89, 92, 93, 100, 103, 108, 118, 119, 120, 122, 125, 129, 130, 135, 141, 143
Offset: 1

Views

Author

Michael De Vlieger, Jan 04 2019

Keywords

Crossrefs

Programs

  • Mathematica
    f[w_] := Block[{k}, k = Total@ w; Total@ Map[Apply[Function[{s, t}, s Array[Boole[t <= # <= s + t - 1] &, k] ], #] &, Apply[Join, Prepend[Table[Function[{v, c}, Map[{w[[k]], # + 1} &, Map[Total[v #] &, Tuples[{0, 1}, {Length@ v}]]]] @@ {Most@ #, ConstantArray[1, Length@ # - 1]} &@ Take[w, k], {k, 2, Length@ w}], {{w[[1]], 1}}]]] ]; g[n_] := Block[{w = {n}, c}, c[x_] := Apply[Times, Most@ x - Reverse@ Accumulate@ Reverse@ Rest@ x]; Reap[Do[Which[And[Length@ w == 2, SameQ @@ w], Sow[w]; Break[], Length@ w == 1, Sow[w]; AppendTo[w, 1], c[w] > 0, Sow[w]; AppendTo[w, 1], True, Sow[w]; w = MapAt[1 + # &, Drop[w, -1], -1] ], {i, Infinity}] ][[-1, 1]] ]; Block[{n = 40, a}, a = Merge[Map[<| #1 -> #2 |> & @@ # &, #], Identity] &@ TakeWhile[Sort@ Map[{Total@ #2, #1, #2} & @@ {#, f[#]} &, Apply[Join, Array[g, n]] ], First@ # <= n^2 &][[All, 1 ;; 2]]; Union@ FoldList[Max, Array[Length[Lookup[a, #] /. k_ /; MissingQ@ k -> {}] &, Length@ a]]]
Showing 1-6 of 6 results.