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 21-30 of 35 results. Next

A238966 The number of distinct primes in divisor lattice in canonical order.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 3, 1, 2, 2, 3, 4, 1, 2, 2, 3, 3, 4, 5, 1, 2, 2, 3, 2, 3, 4, 3, 4, 5, 6, 1, 2, 2, 3, 2, 3, 4, 3, 3, 4, 5, 4, 5, 6, 7, 1, 2, 2, 3, 2, 3, 4, 2, 3, 3, 4, 5, 3, 4, 4, 5, 6, 4, 5, 6, 7, 8, 1, 2, 2, 3, 2, 3, 4, 2, 3, 3, 4, 5, 3, 3, 4, 4, 5, 6, 3, 4, 5, 4, 5, 6, 7, 5, 6, 7, 8, 9
Offset: 0

Views

Author

Sung-Hyuk Cha, Mar 07 2014

Keywords

Comments

After a(0) = 0, this appears to be the same as A128628. - Gus Wiseman, May 24 2020
Also the number of parts in the n-th integer partition in graded reverse-lexicographic order (A080577). - Gus Wiseman, May 24 2020

Examples

			Triangle T(n,k) begins:
  0;
  1;
  1, 2;
  1, 2, 3;
  1, 2, 2, 3, 4;
  1, 2, 2, 3, 3, 4, 5;
  1, 2, 2, 3, 2, 3, 4, 3, 4, 5, 6;
  ...
		

Crossrefs

Row sums are A006128.
Cf. A036043 in canonical order.
Row lengths are A000041.
The generalization to compositions is A000120.
The sum of the partition is A036042.
The lexicographic version (sum/lex) is A049085.
Partition lengths of A080577.
The partition has A115623 distinct elements.
The Heinz number of the partition is A129129.
The colexicographic version (sum/colex) is A193173.
The maximum of the partition is A331581.
Partitions in lexicographic order (sum/lex) are A193073.
Partitions in colexicographic order (sum/colex) are A211992.

Programs

  • Maple
    o:= proc(n) option remember; nops(ifactors(n)[2]) end:
    b:= (n, i)-> `if`(n=0 or i=1, [[1$n]], [map(x->
        [i, x[]], b(n-i, min(n-i, i)))[], b(n, i-1)[]]):
    T:= n-> map(x-> o(mul(ithprime(i)^x[i], i=1..nops(x))), b(n$2))[]:
    seq(T(n), n=0..9);  # Alois P. Heinz, Mar 26 2020
  • Mathematica
    revlexsort[f_,c_]:=OrderedQ[PadRight[{c,f}]];
    Table[Length/@Sort[IntegerPartitions[n],revlexsort],{n,0,8}] (* Gus Wiseman, May 24 2020 *)
    b[n_, i_] := b[n, i] = If[n == 0 || i == 1, {Table[1, {n}]}, Join[ Prepend[#, i]& /@ b[n - i, Min[n - i, i]], b[n, i - 1]]];
    P[n_] := P[n] = Product[Prime[i]^#[[i]], {i, 1, Length[#]}]& /@ b[n, n];
    T[n_, k_] := PrimeNu[P[n][[k + 1]]];
    Table[T[n, k], {n, 0, 9}, {k, 0, Length[P[n]] - 1}] // Flatten (* Jean-François Alcover, Jan 03 2022, after Alois P. Heinz in A063008 *)
  • PARI
    Row(n)={apply(s->#s, vecsort([Vecrev(p) | p<-partitions(n)], , 4))}
    { for(n=0, 8, print(Row(n))) } \\ Andrew Howroyd, Mar 25 2020

Formula

T(n,k) = A001221(A063008(n,k)). - Andrew Howroyd, Mar 25 2020
a(n) = A001222(A129129(n)). - Gus Wiseman, May 24 2020

Extensions

Offset changed and terms a(50) and beyond from Andrew Howroyd, Mar 25 2020

A193173 Triangle in which n-th row lists the number of elements in lexicographically ordered partitions of n, A026791.

Original entry on oeis.org

1, 2, 1, 3, 2, 1, 4, 3, 2, 2, 1, 5, 4, 3, 3, 2, 2, 1, 6, 5, 4, 4, 3, 3, 2, 3, 2, 2, 1, 7, 6, 5, 5, 4, 4, 3, 4, 3, 3, 2, 3, 2, 2, 1, 8, 7, 6, 6, 5, 5, 4, 5, 4, 4, 3, 4, 3, 3, 2, 4, 3, 3, 2, 2, 2, 1, 9, 8, 7, 7, 6, 6, 5, 6, 5, 5, 4, 5, 4, 4, 3, 5, 4, 4, 3, 3, 3, 2, 4, 3, 3, 2, 3, 2, 2, 1, 10, 9, 8, 8, 7, 7, 6, 7, 6
Offset: 1

Views

Author

Alois P. Heinz, Jul 17 2011

Keywords

Comments

This sequence first differs from A049085 in the partitions of 6 (at flattened index 22):
6, 5, 4, 4, 3, 3, 2, 3, 2, 2, 1 (this sequence);
6, 5, 4, 3, 4, 3, 2, 3, 2, 2, 1 (A049085).
- Jason Kimberley, Oct 27 2011
Rows sums give A006128, n >= 1. - Omar E. Pol, Dec 06 2011
The name is correct if the partitions are read in reverse, so that the parts are weakly increasing. The version for non-reversed partitions is A049085.

Examples

			The lexicographically ordered partitions of 3 are [[1, 1, 1], [1, 2], [3]], thus row 3 has 3, 2, 1.
Triangle begins:
  1;
  2, 1;
  3, 2, 1;
  4, 3, 2, 2, 1;
  5, 4, 3, 3, 2, 2, 1;
  6, 5, 4, 4, 3, 3, 2, 3, 2, 2, 1;
  ...
		

Crossrefs

Row lengths are A000041.
Partition lengths of A026791.
The version ignoring length is A036043.
The version for non-reversed partitions is A049085.
The maxima of these partitions are A194546.
Reversed partitions in Abramowitz-Stegun order are A036036.
Reverse-lexicographically ordered partitions are A080577.

Programs

  • Maple
    T:= proc(n) local b, ll;
          b:= proc(n,l)
                if n=0 then ll:= ll, nops(l)
                else seq(b(n-i, [l[], i]), i=`if`(l=[], 1, l[-1])..n) fi
              end;
          ll:= NULL; b(n, []); ll
        end:
    seq(T(n), n=1..11);
  • Mathematica
    lexsort[f_,c_]:=OrderedQ[PadRight[{f,c}]];
    Table[Length/@Sort[Reverse/@IntegerPartitions[n],lexsort],{n,0,10}] (* Gus Wiseman, May 22 2020 *)

A344086 Flattened tetrangle of strict integer partitions sorted first by sum, then lexicographically.

Original entry on oeis.org

1, 2, 2, 1, 3, 3, 1, 4, 3, 2, 4, 1, 5, 3, 2, 1, 4, 2, 5, 1, 6, 4, 2, 1, 4, 3, 5, 2, 6, 1, 7, 4, 3, 1, 5, 2, 1, 5, 3, 6, 2, 7, 1, 8, 4, 3, 2, 5, 3, 1, 5, 4, 6, 2, 1, 6, 3, 7, 2, 8, 1, 9, 4, 3, 2, 1, 5, 3, 2, 5, 4, 1, 6, 3, 1, 6, 4, 7, 2, 1, 7, 3, 8, 2, 9, 1, 10
Offset: 0

Views

Author

Gus Wiseman, May 11 2021

Keywords

Comments

The zeroth row contains only the empty partition.
A tetrangle is a sequence of finite triangles.

Examples

			Tetrangle begins:
  0: ()
  1: (1)
  2: (2)
  3: (21)(3)
  4: (31)(4)
  5: (32)(41)(5)
  6: (321)(42)(51)(6)
  7: (421)(43)(52)(61)(7)
  8: (431)(521)(53)(62)(71)(8)
  9: (432)(531)(54)(621)(63)(72)(81)(9)
		

Crossrefs

Positions of first appearances are A015724.
Triangle sums are A066189.
Taking revlex instead of lex gives A118457.
The not necessarily strict version is A193073.
The version for reversed partitions is A246688.
The Heinz numbers of these partitions grouped by sum are A246867.
The ordered generalization is A339351.
Taking colex instead of lex gives A344087.
A026793 gives reversed strict partitions in A-S order (sum/length/lex).
A319247 sorts reversed strict partitions by Heinz number.
A329631 sorts strict partitions by Heinz number.
A344090 gives strict partitions in A-S order (sum/length/lex).

Programs

  • Mathematica
    lexsort[f_,c_]:=OrderedQ[PadRight[{f,c}]];
    Table[Sort[Select[IntegerPartitions[n],UnsameQ@@#&],lexsort],{n,0,8}]

A333486 Length of the n-th reversed integer partition in graded reverse-lexicographic order. Partition lengths of A228531.

Original entry on oeis.org

0, 1, 1, 2, 1, 2, 3, 1, 2, 2, 3, 4, 1, 2, 2, 3, 3, 4, 5, 1, 2, 2, 3, 2, 3, 3, 4, 4, 5, 6, 1, 2, 2, 3, 2, 3, 3, 4, 3, 4, 4, 5, 5, 6, 7, 1, 2, 2, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 4, 5, 5, 6, 6, 7, 8, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 5, 6, 6, 7, 7, 8, 9
Offset: 0

Views

Author

Gus Wiseman, May 23 2020

Keywords

Examples

			Triangle begins:
  0
  1
  1 2
  1 2 3
  1 2 2 3 4
  1 2 2 3 3 4 5
  1 2 2 3 2 3 3 4 4 5 6
  1 2 2 3 2 3 3 4 3 4 4 5 5 6 7
  1 2 2 2 3 3 4 2 3 3 4 3 4 4 5 4 5 5 6 6 7 8
		

Crossrefs

Row lengths are A000041.
The generalization to compositions is A000120.
Row sums are A006128.
The same partition has sum A036042.
The length-sensitive version (sum/length/revlex) is A036043.
The colexicographic version (sum/colex) is A049085.
The same partition has minimum A182715.
The lexicographic version (sum/lex) is A193173.
The tetrangle of these partitions is A228531.
The version for non-reversed partitions is A238966.
The same partition has Heinz number A334436.
Reversed partitions in Abramowitz-Stegun order (sum/length/lex) are A036036.
Partitions in lexicographic order (sum/lex) are A193073.
Partitions in colexicographic order (sum/colex) are A211992.
Partitions in opposite Abramowitz-Stegun order (sum/length/revlex) are A334439.

Programs

  • Mathematica
    revlexsort[f_,c_]:=OrderedQ[PadRight[{c,f}]];
    Table[Length/@Sort[Reverse/@IntegerPartitions[n],revlexsort],{n,0,8}]

A344089 Flattened tetrangle of reversed strict integer partitions, sorted first by length and then colexicographically.

Original entry on oeis.org

1, 2, 3, 1, 2, 4, 1, 3, 5, 2, 3, 1, 4, 6, 2, 4, 1, 5, 1, 2, 3, 7, 3, 4, 2, 5, 1, 6, 1, 2, 4, 8, 3, 5, 2, 6, 1, 7, 1, 3, 4, 1, 2, 5, 9, 4, 5, 3, 6, 2, 7, 1, 8, 2, 3, 4, 1, 3, 5, 1, 2, 6, 10, 4, 6, 3, 7, 2, 8, 1, 9, 2, 3, 5, 1, 4, 5, 1, 3, 6, 1, 2, 7, 1, 2, 3, 4
Offset: 0

Views

Author

Gus Wiseman, May 12 2021

Keywords

Comments

First differs from the revlex (instead of colex) version for partitions of 12.
The zeroth row contains only the empty partition.
A tetrangle is a sequence of finite triangles.

Examples

			Tetrangle begins:
  0: ()
  1: (1)
  2: (2)
  3: (3)(12)
  4: (4)(13)
  5: (5)(23)(14)
  6: (6)(24)(15)(123)
  7: (7)(34)(25)(16)(124)
  8: (8)(35)(26)(17)(134)(125)
  9: (9)(45)(36)(27)(18)(234)(135)(126)
		

Crossrefs

Positions of first appearances are A015724 plus one.
Taking lex instead of colex gives A026793 (non-reversed: A118457).
Triangle sums are A066189.
Reversing all partitions gives A344090.
The non-strict version is A344091.
A319247 sorts strict partitions by Heinz number.
A329631 sorts reversed strict partitions by Heinz number.

Programs

  • Mathematica
    Table[Reverse/@Sort[Select[IntegerPartitions[n],UnsameQ@@#&]],{n,0,30}]

A335122 Irregular triangle whose reversed rows are all integer partitions in graded reverse-lexicographic order.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, May 24 2020

Keywords

Comments

First differs from A036036 for partitions of 6.
First differs from A334442 for partitions of 6.
Also reversed partitions in reverse-colexicographic order.

Examples

			The sequence of all reversed partitions begins:
  ()         (1,1,3)        (7)              (8)
  (1)        (1,2,2)        (1,6)            (1,7)
  (2)        (1,1,1,2)      (2,5)            (2,6)
  (1,1)      (1,1,1,1,1)    (1,1,5)          (1,1,6)
  (3)        (6)            (3,4)            (3,5)
  (1,2)      (1,5)          (1,2,4)          (1,2,5)
  (1,1,1)    (2,4)          (1,1,1,4)        (1,1,1,5)
  (4)        (1,1,4)        (1,3,3)          (4,4)
  (1,3)      (3,3)          (2,2,3)          (1,3,4)
  (2,2)      (1,2,3)        (1,1,2,3)        (2,2,4)
  (1,1,2)    (1,1,1,3)      (1,1,1,1,3)      (1,1,2,4)
  (1,1,1,1)  (2,2,2)        (1,2,2,2)        (1,1,1,1,4)
  (5)        (1,1,2,2)      (1,1,1,2,2)      (2,3,3)
  (1,4)      (1,1,1,1,2)    (1,1,1,1,1,2)    (1,1,3,3)
  (2,3)      (1,1,1,1,1,1)  (1,1,1,1,1,1,1)  (1,2,2,3)
We have the following tetrangle of reversed partitions:
                             0
                            (1)
                          (2)(11)
                        (3)(12)(111)
                   (4)(13)(22)(112)(1111)
             (5)(14)(23)(113)(122)(1112)(11111)
  (6)(15)(24)(114)(33)(123)(1113)(222)(1122)(11112)(111111)
		

Crossrefs

Row lengths are A000041.
The version for reversed partitions is A026792.
The version for colex instead of revlex is A026791.
The version for lex instead of revlex is A080576.
The non-reflected version is A080577.
The number of distinct parts is A115623.
Taking Heinz numbers gives A129129.
The version for compositions is A228351.
Partition lengths are A238966.
Partition maxima are A331581.
The length-sensitive version is A334442.
Lexicographically ordered partitions are A193073.
Partitions in colexicographic order are A211992.

Programs

  • Mathematica
    revlexsort[f_,c_]:=OrderedQ[PadRight[{c,f}]];
    Reverse/@Join@@Table[Sort[IntegerPartitions[n],revlexsort],{n,0,8}]

A335123 Minimum part of the n-th integer partition in Abramowitz-Stegun order (sum/length/lex); a(0) = 0.

Original entry on oeis.org

0, 1, 2, 1, 3, 1, 1, 4, 2, 1, 1, 1, 5, 2, 1, 1, 1, 1, 1, 6, 3, 2, 1, 2, 1, 1, 1, 1, 1, 1, 7, 3, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8, 4, 3, 2, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 9, 4, 3, 2, 1, 3, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Offset: 0

Views

Author

Gus Wiseman, May 24 2020

Keywords

Examples

			Triangle begins:
  0
  1
  2 1
  3 1 1
  4 2 1 1 1
  5 2 1 1 1 1 1
  6 3 2 1 2 1 1 1 1 1 1
  7 3 2 1 2 1 1 1 1 1 1 1 1 1 1
  8 4 3 2 1 2 2 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1
		

Crossrefs

Row lengths are A000041.
Partition minima of A334301.
The length of the same partition is A036043.
The Heinz number of the same partition is A334433.
The number of distinct parts in the same partition is A334440.
The maximum of the same partition is A334441.
The version for reversed partitions is A335124.
Reversed partitions in Abramowitz-Stegun (sum/length/lex) order are A036036.
Partitions in (sum/length/revlex) order are A334439.

Programs

  • Mathematica
    Table[If[n==0,{0},Min/@Sort[IntegerPartitions[n]]],{n,0,8}]

Formula

a(n) = A055396(A334433(n)).

A335124 Minimum part of the n-th reversed integer partition in Abramowitz-Stegun order; a(0) = 0.

Original entry on oeis.org

0, 1, 2, 1, 3, 1, 1, 4, 1, 2, 1, 1, 5, 1, 2, 1, 1, 1, 1, 6, 1, 2, 3, 1, 1, 2, 1, 1, 1, 1, 7, 1, 2, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 8, 1, 2, 3, 4, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 9, 1, 2, 3, 4, 1, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Offset: 0

Views

Author

Gus Wiseman, May 24 2020

Keywords

Comments

The ordering of reversed partitions is first by sum, then by length, and finally lexicographically. The version for non-reversed partitions is A335123.

Examples

			Triangle begins:
  0
  1
  2 1
  3 1 1
  4 1 2 1 1
  5 1 2 1 1 1 1
  6 1 2 3 1 1 2 1 1 1 1
  7 1 2 3 1 1 1 2 1 1 1 1 1 1 1
  8 1 2 3 4 1 1 1 2 2 1 1 1 1 2 1 1 1 1 1 1 1
		

Crossrefs

Row lengths are A000041.
Partition minima of A036036.
The length of the same partition is A036043.
The maximum of the same partition is A049085.
The number of distinct parts in the same partition is A103921.
The Heinz number of the same partition is A185974.
The version for non-reversed partitions is A335123.
Lexicographically ordered reversed partitions are A026791.
Partitions in (sum/length/colex) order are A036037.
Partitions in opposite Abramowitz-Stegun (sum/length/revlex) order are A334439.

Programs

  • Mathematica
    Table[If[n==0,{0},Min/@Sort[Reverse/@IntegerPartitions[n]]],{n,0,8}]

Formula

a(n) = A055396(A185974(n)).

A344085 Triangle of squarefree numbers first grouped by greatest prime factor, then sorted by omega, then in increasing order, read by rows.

Original entry on oeis.org

1, 2, 3, 6, 5, 10, 15, 30, 7, 14, 21, 35, 42, 70, 105, 210, 11, 22, 33, 55, 77, 66, 110, 154, 165, 231, 385, 330, 462, 770, 1155, 2310, 13, 26, 39, 65, 91, 143, 78, 130, 182, 195, 273, 286, 429, 455, 715, 1001, 390, 546, 858, 910, 1365, 1430, 2002, 2145, 3003, 5005, 2730, 4290, 6006, 10010, 15015, 30030
Offset: 1

Views

Author

Gus Wiseman, May 11 2021

Keywords

Comments

Differs from A339195 in having 77 before 66.

Examples

			Triangle begins:
   1
   2
   3   6
   5  10  15  30
   7  14  21  35  42  70 105 210
		

Crossrefs

Programs

  • Mathematica
    nn=4;
    GatherBy[SortBy[Select[Range[Times@@Prime/@Range[nn]],SquareFreeQ[#]&&PrimePi[FactorInteger[#][[-1,1]]]<=nn&],PrimeOmega],FactorInteger[#][[-1,1]]&]

A344090 Flattened tetrangle of strict integer partitions, sorted first by sum, then by length, then lexicographically.

Original entry on oeis.org

1, 2, 3, 2, 1, 4, 3, 1, 5, 3, 2, 4, 1, 6, 4, 2, 5, 1, 3, 2, 1, 7, 4, 3, 5, 2, 6, 1, 4, 2, 1, 8, 5, 3, 6, 2, 7, 1, 4, 3, 1, 5, 2, 1, 9, 5, 4, 6, 3, 7, 2, 8, 1, 4, 3, 2, 5, 3, 1, 6, 2, 1, 10, 6, 4, 7, 3, 8, 2, 9, 1, 5, 3, 2, 5, 4, 1, 6, 3, 1, 7, 2, 1, 4, 3, 2, 1
Offset: 0

Views

Author

Gus Wiseman, May 12 2021

Keywords

Comments

The zeroth row contains only the empty partition.
A tetrangle is a sequence of finite triangles.

Examples

			Tetrangle begins:
  0: ()
  1: (1)
  2: (2)
  3: (3)(21)
  4: (4)(31)
  5: (5)(32)(41)
  6: (6)(42)(51)(321)
  7: (7)(43)(52)(61)(421)
  8: (8)(53)(62)(71)(431)(521)
  9: (9)(54)(63)(72)(81)(432)(531)(621)
		

Crossrefs

Starting with reversed partitions gives A026793.
The version for compositions is A124734.
Showing partitions as Heinz numbers gives A246867.
The non-strict version is A334301 (reversed: A036036).
Ignoring length gives A344086 (reversed: A246688).
Same as A344089 with partitions reversed.
The version for revlex instead of lex is A344092.
A026791 reads off lexicographically ordered reversed partitions.
A080577 reads off reverse-lexicographically ordered partitions.
A112798 reads off reversed partitions by Heinz number.
A296150 reads off partitions by Heinz number.

Programs

  • Mathematica
    Table[Sort[Select[IntegerPartitions[n],UnsameQ@@#&]],{n,0,10}]
Previous Showing 21-30 of 35 results. Next