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

A321648 Number of permutations of the conjugate of the integer partition with Heinz number n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 2, 1, 4, 3, 1, 1, 2, 1, 3, 6, 5, 1, 2, 1, 6, 1, 4, 1, 6, 1, 1, 10, 7, 4, 2, 1, 8, 15, 3, 1, 12, 1, 5, 3, 9, 1, 2, 1, 3, 21, 6, 1, 2, 10, 4, 28, 10, 1, 6, 1, 11, 6, 1, 20, 20, 1, 7, 36, 12, 1, 2, 1, 12, 3, 8, 5, 30, 1, 3, 1, 13
Offset: 1

Views

Author

Gus Wiseman, Nov 15 2018

Keywords

Comments

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

Examples

			The a(42) = 12 permutations: (3211), (3121), (3112), (2311), (2131), (2113), (1321), (1312), (1231), (1213), (1132), (1123).

Links

Crossrefs

Cf. A008480, A056239, A112798, A122111, A296150, A321645, A321646, A321647, A321649, A321650.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Permutations[conj[primeMS[n]]]],{n,50}]
  • PARI
    A008480(n) = {my(sig=factor(n)[, 2]); vecsum(sig)!/factorback(apply(k->k!, sig))}; \\ From A008480
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f)};
A122111(n) = if(1==n,n,prime(bigomega(n))*A122111(A064989(n)));
A321648(n) = A008480(A122111(n)); \\ Antti Karttunen, Dec 23 2018

Formula

a(n) = A008480(A122111(n)).

A068313 Number of (0,1)-matrices with sum of entries equal to n and no zero rows or columns, with weakly decreasing row sums and column sums.

Original entry on oeis.org

1, 4, 15, 82, 457, 3231, 24055, 209375, 1955288, 20455936, 229830841, 2828166755, 37228913365, 528635368980, 7990596990430, 128909374528433, 2202090635802581, 39837079499488151, 759320365206705013, 15234890522990662422, 320634889654149218205, 7068984425261215971205
Offset: 1

Views

Author

Axel Kohnert (axel.kohnert(AT)uni-bayreuth.de), Feb 25 2002

Keywords

Comments

This is the sum over the matrix of base change from the elementary symmetric functions to the monomial symmetric functions.

Examples

			a(2) = 4 because there are 4 different 0-1 matrices of weight 2: 1 10 01 11,1, 01, 10.
From _Gus Wiseman_, Nov 15 2018: (Start)
The a(3) = 15 matrices:
  [1 1 1]
.
  [1 1] [1 1 0] [1 0 1] [0 1 1]
  [1 0] [0 0 1] [0 1 0] [1 0 0]
.
  [1] [1 0] [1 0] [1 0 0] [1 0 0] [0 1] [0 1 0] [0 1 0] [0 0 1] [0 0 1]
  [1] [1 0] [0 1] [0 1 0] [0 0 1] [1 0] [1 0 0] [0 0 1] [1 0 0] [0 1 0]
  [1] [0 1] [1 0] [0 0 1] [0 1 0] [1 0] [0 0 1] [1 0 0] [0 1 0] [1 0 0]
(End)

References

  • I. G. Macdonald, Symmetric Functions and Hall Polynomials, Oxford 1979, p. 57.

Links

Crossrefs

Cf. A000219, A001970, A007716, A049311, A101370, A117433, A120733, A321646, A321652, A321653, A321654.

Programs

  • Mathematica
    prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
Table[Length[Select[Subsets[Tuples[Range[n],2],{n}],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],OrderedQ[Total/@prs2mat[#]],OrderedQ[Total/@T[prs2mat[#]]]]&]],{n,5}] (* Gus Wiseman, Nov 15 2018 *)

Extensions

Name changed by Gus Wiseman, Nov 15 2018
a(20) onwards from Ludovic Schwob, Oct 13 2023

A321645 Number of distinct row/column permutations of plane partitions of n.

Original entry on oeis.org

1, 1, 3, 11, 32, 96, 290, 864, 2502, 7134, 20081
Offset: 0

Views

Author

Gus Wiseman, Nov 15 2018

Keywords

Examples

			The a(3) = 11 permutations of plane partitions:
  [3] [2 1] [1 2] [1 1 1]
.
  [2] [1 1] [1 1] [1] [1 0] [0 1]
  [1] [1 0] [0 1] [2] [1 1] [1 1]
.
  [1]
  [1]
  [1]

Crossrefs

Cf. A000219, A001970, A007716, A008480, A068313, A114736, A120733, A316983, A319646.
Cf. A321646, A321647, A321648, A321652, A321653, A321655.

Programs

  • Mathematica
    submultisetQ[M_,N_]:=Or[Length[M]==0,MatchQ[{Sort[List@@M],Sort[List@@N]},{{x_,Z___},{_,x_,W___}}/;submultisetQ[{Z},{W}]]];
multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],OrderedQ[Sort[Map[Last,GatherBy[Sort[Reverse/@#],First],{2}],submultisetQ],submultisetQ],OrderedQ[Sort[Sort/@Map[Last,GatherBy[#,First],{2}],submultisetQ],submultisetQ]]&]],{n,6}]

A321647 Number of distinct row/column permutations of the Ferrers diagram of the integer partition with Heinz number n.

Original entry on oeis.org

1, 1, 1, 1, 1, 4, 1, 1, 1, 6, 1, 6, 1, 8, 6, 1, 1, 6, 1, 9, 12, 10, 1, 8, 1, 12, 1, 12, 1, 36, 1, 1, 20, 14, 8, 12, 1, 16, 30, 12, 1, 72, 1, 15, 9, 18, 1, 10, 1, 9, 42, 18, 1, 8, 20, 16, 56, 20, 1, 72, 1, 22, 18, 1, 40, 120, 1, 21, 72, 72, 1, 20, 1, 24, 9, 24, 10, 180, 1, 15, 1, 26, 1, 144, 70, 28, 90, 20, 1, 72, 30, 27, 110, 30, 112, 12, 1, 12
Offset: 1

Views

Author

Gus Wiseman, Nov 15 2018

Keywords

Comments

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

Examples

			The a(10) = 6 permutations:
  o o   o o   o     o       o     o
  o       o   o o   o     o o     o
  o       o   o     o o     o   o o
The a(21) = 12 permutations:
  o o   o o   o o   o o   o o   o o   o     o     o       o     o     o
  o o   o o   o     o       o     o   o o   o o   o     o o   o o     o
  o       o   o o   o     o o     o   o o   o     o o   o o     o   o o
  o       o   o     o o     o   o o   o     o o   o o     o   o o   o o

Links

Crossrefs

Cf. A000219, A008480, A049311, A056239, A068313, A101370, A112798, A122111, A296150, A321645, A321646, A321648, A321655.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]];
Table[Length[Permutations[primeMS[n]]]*Length[Permutations[conj[primeMS[n]]]],{n,50}]
  • PARI
    A008480(n) = {my(sig=factor(n)[, 2]); vecsum(sig)!/factorback(apply(k->k!, sig))}; \\ From A008480
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f)};
A122111(n) = if(1==n,n,prime(bigomega(n))*A122111(A064989(n)));
A321647(n) = (A008480(n) * A008480(A122111(n))); \\ Antti Karttunen, Feb 09 2019

Formula

a(n) = A008480(n) * A008480(A122111(n)) = A008480(n) * A321648(n).

Extensions

More terms from Antti Karttunen, Feb 09 2019

A321654 Number of nonnegative integer matrices with sum of entries equal to n and no zero rows or columns, with distinct row sums and distinct column sums.

Original entry on oeis.org

1, 1, 1, 13, 13, 45, 681, 885, 2805, 8301, 237213
Offset: 0

Views

Author

Gus Wiseman, Nov 15 2018

Keywords

Examples

			The a(3) = 13 matrices:
  [3] [2 1] [1 2]
.
  [2] [2 0] [1 1] [1 1] [1] [1 0] [1 0] [0 2] [0 1] [0 1]
  [1] [0 1] [1 0] [0 1] [2] [1 1] [0 2] [1 0] [2 0] [1 1]

Crossrefs

Cf. A000219, A001970, A007716, A068313, A114736, A117433, A120733, A319646, A321645, A321646, A321652.

Programs

  • Mathematica
    prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],UnsameQ@@Total/@prs2mat[#],UnsameQ@@Total/@Transpose[prs2mat[#]]]&]],{n,5}]
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.