A299925 -id:A299925 - cp's OEIS frontend

A300383 In the ranked poset of integer partitions ordered by refinement, a(n) is the size of the lower ideal generated by the partition with Heinz number n.

1, 1, 2, 1, 3, 2, 5, 1, 3, 3, 7, 2, 11, 5, 5, 1, 15, 3, 22, 3, 8, 7, 30, 2, 6, 11, 4, 5, 42, 5, 56, 1, 11, 15, 11, 3, 77, 22, 17, 3, 101, 8, 135, 7, 7, 30, 176, 2, 14, 6, 23, 11, 231, 4, 15, 5, 33, 42, 297, 5, 385, 56, 11, 1, 23, 11, 490, 15, 45, 11, 627, 3

Offset: 1

Gus Wiseman, Mar 04 2018

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). The size of the corresponding upper ideal is A317141(n). Chains are A213427(n) and maximal chains are A002846(n).

			The a(30) = 5 partitions are (321), (2211), (3111), (21111), (111111), with corresponding Heinz numbers: 30, 36, 40, 48, 64.

Robert Price, Table of n, a(n) for n = 1..350

Cf. A000041, A001055, A001222, A002846, A056239, A112798, A213427, A215366, A265947, A296150, A299200, A299202, A299925, A300273.

Cf. A317141, A317142, A317143.

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Union[Sort/@Join@@@Tuples[IntegerPartitions/@primeMS[n]]]],{n,50}]

a(prime(n)) = A000041(n).

a(x * y) <= a(x) * a(y).

A300121 Number of normal generalized Young tableaux, of shape the integer partition with Heinz number n, with all rows and columns weakly increasing and all regions connected skew partitions.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 8, 4, 11, 12, 16, 12, 32, 28, 31, 8, 64, 31, 128, 33, 82, 64, 256, 28, 69, 144, 69, 86, 512, 105, 1024, 16, 208, 320, 209, 82, 2048, 704, 512, 86, 4096, 318, 8192, 216, 262, 1536, 16384, 64, 465, 262, 1232, 528, 32768, 209, 588, 245, 2912, 3328

Offset: 1

Gus Wiseman, Feb 25 2018

nonn

The diagram of a connected skew partition is required to be connected as a polyomino but can have empty rows or columns. A generalized Young tableau of shape y is an array obtained by replacing the dots in the Ferrers diagram of y with positive integers. A tableau is normal if its entries span an initial interval of positive integers. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

			The a(9) = 11 tableaux:
1 1
1 1
.
2 1   1 1   1 1   1 2
1 1   1 2   2 2   1 2
.
1 1   1 2   1 2   1 3
2 3   1 3   3 3   2 3
.
1 2   1 3
3 4   2 4

Cf. A000085, A000898, A056239, A006958, A138178, A153452, A238690, A259479, A259480, A296150, A296561, A297388, A299699, A299925, A299926, A300056, A300060, A300118, A300120, A300122, A300123, A300124.

undcon[y_]:=Select[Tuples[Range[0,#]&/@y],Function[v,GreaterEqual@@v&&With[{r=Select[Range[Length[y]],y[[#]]=!=v[[#]]&]},Or[Length[r]<=1,And@@Table[v[[i]]Table[PrimePi[p],{k}]]]];
Table[Length[cos[Reverse[primeMS[n]]]],{n,50}]

A300385 In the ranked poset of integer partitions ordered by refinement, number of maximal chains from the partition with Heinz number n to the local maximum.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 4, 1, 1, 1, 2, 1, 3, 1, 4, 1, 1, 1, 6, 1, 1, 1, 5, 1, 3, 1, 2, 2, 1, 1, 11, 1, 2, 1, 2, 1, 5, 1, 5, 1, 1, 1, 9, 1, 1, 2, 11, 1, 3, 1, 2, 1, 3, 1, 19, 1, 1, 2, 2, 1, 3, 1, 14, 2, 1, 1, 10, 1, 1, 1, 5, 1, 10, 1, 2, 1, 1, 1, 33, 1, 2, 2, 7, 1, 3, 1, 5, 3

Offset: 1

Gus Wiseman, Mar 04 2018

nonn

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

			The a(36) = 6 maximal chains are the rows:
(2211)<(222)<(42)<(6)
(2211)<(411)<(42)<(6)
(2211)<(411)<(51)<(6)
(2211)<(321)<(42)<(6)
(2211)<(321)<(51)<(6)
(2211)<(321)<(33)<(6)

Antti Karttunen, Table of n, a(n) for n = 1..12288
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000
Index entries for sequences computed from indices in prime factorization
Index entries for sequences related to Heinz numbers

Cf. A000041, A001055, A001222, A002846, A056239, A112798, A213427, A215366, A265947, A296150, A299200, A299202, A299925, A300273, A300383, A300384.

chc[ptn_]:=If[Length[ptn]===1,1,Total[chc/@Union[ReplaceList[ptn,{a___,x_,b___,y_,c___}:>Sort[{x+y,a,b,c},Greater]]]]];
primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[chc[Reverse[primeMS[n]]],{n,100}]

A300385(n) = if(1==n,0,if(bigomega(n)<=2,1,my(f=factor(n), u = #f~, s = 0); for(i=1,u,for(j=i+(1==f[i,2]),u, s += A300385((n/(f[i,1]*f[j,1])*prime(primepi(f[i,1])+primepi(f[j,1])))))); (s))); \\ Antti Karttunen, Oct 06 2018

memoA300385 = Map();
A300385(n) = if(1==n,0,if(bigomega(n)<=2,1,if(mapisdefined(memoA300385,n),mapget(memoA300385,n),my(f=factor(n), u = #f~, s = 0); for(i=1,u,for(j=i+(1==f[i,2]),u, s += A300385(prime(primepi(f[i,1])+primepi(f[j,1]))*(n/(f[i,1]*f[j,1]))))); mapput(memoA300385,n,s); (s)))); \\ (A memoized implementation). - Antti Karttunen, Oct 07 2018

a(1) = 0; for n > 1, if A001222(n) <= 2 [when n is a prime or semiprime], a(n) = 1, otherwise, a(n) = Sum_{p|n} Sum_{q|n, q>=(p+[p^2 does not divide n])} a(prime(primepi(p)+primepi(q)) * (n/(p*q))), where p ranges over all distinct primes dividing n, and q also ranges over primes dividing n, but with condition that q > p if p is a unitary prime factor of n, otherwise q >= p. Here primepi = A000720. - Antti Karttunen, Oct 07 2018

More terms from Antti Karttunen, Oct 06 2018

A238690 Let each integer m (1 <= m <= n) be factorized as m = prime_m(1)prime_m(2)...*prime_m(bigomega(m)), with the primes sorted in nonincreasing order. Then a(n) is the number of values of m such that each prime_m(i) <= prime_n(i).

Original entry on oeis.org

1, 2, 3, 3, 4, 5, 5, 4, 6, 7, 6, 7, 7, 9, 9, 5, 8, 9, 9, 10, 12, 11, 10, 9, 10, 13, 10, 13, 11, 14, 12, 6, 15, 15, 14, 12, 13, 17, 18, 13, 14, 19, 15, 16, 16, 19, 16, 11, 15, 16, 21, 19, 17, 14, 18, 17, 24, 21, 18, 19, 19, 23, 22, 7, 22, 24, 20, 22, 27, 23, 21

Offset: 1

Matthew Vandermast, Apr 28 2014

nonn

Equivalently, a(n) equals the number of values of m such that each value of A238689 T(m,k) <= A238689 T(n,k). (Since the prime factorization of 1 is the empty factorization, we consider each prime_1(i) not to be greater than prime_n(i) for all positive integers n.)
Suppose we say that n "covers" m iff both m and n are factorized as described in the sequence definition and each prime_m(i) <= prime_n(i). At least three sequences (A037019, A108951 and A181821) have the property that a(m) divides a(n) iff n "covers" m.  These sequences are also divisibility sequences (i.e., sequences with the property that a(m) divides a(n) if m divides n), since any positive integer "covers" each of its divisors.
For any positive integers m and k, the following integer sequences (with n >= 0) are arithmetic progressions:
1. The sequence b(n) = a(m*(2^n)).
2. The sequence b(n) = a(m*(prime(n+k))) if prime(k) >= A006530(m).
Also, a(n) = the number of distinct prime signatures that occur among the divisors of any integer m such that A181819(m) = n and/or A238745(m) = n.
Number of skew partitions whose numerator has Heinz number n, where a skew partition is a pair y/v of integer partitions such that the diagram of v fits inside the diagram of y. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). - Gus Wiseman, Feb 24 2018

			The prime factorizations of integers 1 through 9, with prime factors sorted from largest to smallest:
1 - the empty factorization (no prime factors)
2 = 2
3 = 3
4 = 2*2
5 = 5
6 = 3*2
7 = 7
8 = 2*2*2
9 = 3*3
To find a(9), we consider 9 = 3*3. There are 6 positive integers (1, 2, 3, 4, 6 and 9) which satisfy the following criteria:
1) The largest prime factor, if one exists, is not greater than 3;
2) The second-largest prime factor, if one exists, is not greater than 3;
3) The total number of prime factors (counting repeated factors) does not exceed 2.
Therefore, a(9) = 6.
From _Gus Wiseman_, Feb 24 2018: (Start)
Heinz numbers of the a(15) = 9 partitions contained within the partition (32) are 1, 2, 3, 4, 5, 6, 9, 10, 15. The a(15) = 9 skew partitions are (32)/(), (32)/(1), (32)/(11), (32)/(2), (32)/(21), (32)/(22), (32)/(3), (32)/(31), (32)/(32).
Corresponding diagrams are:
  o o o   . o o   . o o   . . o   . . o   . . o   . . .   . . .   . . .
  o o     o o     . o     o o     . o     . .     o o     . o     . .    (End)

Amiram Eldar, Table of n, a(n) for n = 1..10000

Rearrangement of A115728, A115729 and A238746. A116473(n) is the number of times n appears in the sequence.

Cf. A000041, A000085, A000720, A056239, A063834, A112798, A122111, A153452, A215366, A238689, A259478, A259480, A296150, A296188, A296561, A297388, A299925, A299926, A299966, A299967.

undptns[y_]:=Select[Tuples[Range[0,#]&/@y],OrderedQ[#,GreaterEqual]&];
primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[undptns[Reverse[primeMS[n]]]],{n,100}] (* Gus Wiseman, Feb 24 2018 *)

a(n) = A085082(A108951(n)) = A085082(A181821(n)).
a(n) = a(A122111(n)).
a(prime(n)) = a(2^n) = n+1.
a((prime(n))^m) = a((prime(m))^n) = binomial(n+m, n).
a(A002110(n)) = A000108(n+1).
A000005(n) <= a(n) <= n.

A299926 a(n) is the number of normal generalized Young tableaux of size n with all rows and columns weakly increasing and all regions skew partitions.

Original entry on oeis.org

1, 4, 14, 60, 252, 1212, 5880, 30904, 166976, 952456, 5587840, 34217216, 215204960, 1401551376, 9360467760, 64384034784, 453328282624, 3274696185568, 24173219998912, 182546586425408

Offset: 1

Gus Wiseman, Feb 21 2018

If y is an integer partition of n, a generalized Young tableau of shape y is an array obtained by replacing the dots in the Ferrers diagram of y with positive integers. A tableau is normal if its entries span an initial interval of positive integers.

			The a(3) = 14 tableaux:
1 2 3   1 2 2   1 1 2   1 1 1
.
1 3   1 2   1 2   1 2   1 1   1 1
2     3     2     1     2     1
.
1   1   1   1
2   2   1   1
3   2   2   1

Cf. A000085, A063834, A138178, A153452, A296188, A296561, A297388, A299699, A299925.

undptns[y_]:=DeleteCases[Select[Tuples[Range[0,#]&/@y],OrderedQ[#,GreaterEqual]&],0,{2}];
chn[y_]:=Join[{{{},y}},Join@@Function[c,Append[#,y]&/@chn[c]]/@Take[undptns[y],{2,-2}]];
Table[Sum[Length[chn[y]],{y,IntegerPartitions[n]}],{n,8}]

A300060 Number of domino tilings of the diagram of the integer partition with Heinz number n.

Original entry on oeis.org

1, 0, 1, 1, 0, 0, 1, 0, 2, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 2, 1, 0, 0, 3, 0, 3, 1, 1, 0, 0, 0, 0, 1, 0, 2, 1, 0, 2, 1, 0, 0, 1, 0, 0, 1, 0, 1, 5, 0, 0, 1, 1, 0, 3, 0, 2, 0, 0, 0, 1, 1, 3, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 4, 1, 0, 0, 1, 0, 5, 1, 0, 2, 3, 0, 2, 1, 1, 1, 5, 0, 0, 1, 0, 0, 0, 0, 0, 3, 1, 0, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Feb 23 2018

nonn

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

Alois P. Heinz, Table of n, a(n) for n = 1..100000
Wikipedia, Domino tiling
Gus Wiseman, The a(91) = 5 domino tilings of (6,4).

Cf. A000085, A000720, A000712, A000898, A001222, A004003, A056239, A099390, A138178, A153452, A238690, A296150, A296188, A299925, A299926, A300056, A300061, A304662.

h:= proc(l, f) option remember; local k; if min(l[])>0 then
     `if`(nops(f)=0, 1, h(map(x-> x-1, l[1..f[1]]), subsop(1=[][], f)))
    else for k from nops(l) while l[k]>0 by -1 do od;
        `if`(nops(f)>0 and f[1]>=k, h(subsop(k=2, l), f), 0)+
        `if`(k>1 and l[k-1]=0, h(subsop(k=1, k-1=1, l), f), 0)
      fi
    end:
g:= l-> `if`(add(`if`(l[i]::odd, (-1)^i, 0), i=1..nops(l))=0,
        `if`(l=[], 1, h([0$l[1]], subsop(1=[][], l))), 0):
a:= n-> g(sort(map(i-> numtheory[pi](i[1])$i[2], ifactors(n)[2]), `>`)):
seq(a(n), n=1..120);  # Alois P. Heinz, May 22 2018

h[l_, f_] := h[l, f] = Module[{k}, If[Min[l] > 0, If[Length[f] == 0, 1, h[Map[Function[x, x-1], l[[Range @ f[[1]]]]], ReplacePart[f, 1 -> Nothing]]], For[k = Length[l], l[[k]] > 0, k-- ]; If[Length[f] > 0 && f[[1]] >= k, h[ReplacePart[l, k -> 2], f], 0] + If[k > 1 && l[[k-1]] == 0, h[ReplacePart[l, {k -> 1, k - 1 -> 1}], f], 0]]];
g[l_] := If[Sum[If[OddQ @ l[[i]], (-1)^i, 0], {i, 1, Length[l]}] == 0, If[l == {}, 1, h[Table[0, l[[1]]], ReplacePart[l, 1 -> Nothing]]], 0];
a[n_] := g[Reverse @ Sort[ Flatten[ Map[ Function[i, Table[PrimePi[i[[1]]], i[[2]]]], FactorInteger[n]]]]];
Array[a, 120] (* Jean-François Alcover, May 28 2018, after Alois P. Heinz *)

A300120 Number of skew partitions whose quotient diagram is connected and whose numerator has weight n.

Original entry on oeis.org

2, 6, 12, 26, 44, 86, 136, 239, 376, 613, 930, 1485, 2194, 3355, 4948, 7372, 10656, 15660, 22359, 32308

Offset: 1

Gus Wiseman, Feb 25 2018

The diagram of a connected skew partition is required to be connected as a polyomino but can have empty rows or columns.

			The a(3) = 12 skew partitions:
(3)/()   (3)/(1)   (3)/(2)    (3)/(3)
(21)/()  (21)/(11) (21)/(2)   (21)/(21)
(111)/() (111)/(1) (111)/(11) (111)/(111)

Cf. A000085, A000898, A006958, A138178, A238690, A259479, A259480, A297388, A299925, A299926, A300118, A300122, A300123, A300124.

undcon[y_]:=Select[Tuples[Range[0,#]&/@y],Function[v,GreaterEqual@@v&&With[{r=Select[Range[Length[y]],y[[#]]=!=v[[#]]&]},Or[Length[r]<=1,And@@Table[v[[i]]

A300122 Number of normal generalized Young tableaux of size n with all rows and columns weakly increasing and all regions connected skew partitions.

Original entry on oeis.org

1, 4, 13, 51, 183, 771, 3087, 13601, 59933, 278797, 1311719, 6453606, 32179898, 166075956, 871713213, 4704669005, 25831172649, 145260890323

Offset: 1

Gus Wiseman, Feb 25 2018

The diagram of a connected skew partition is required to be connected as a polyomino but can have empty rows or columns. A generalized Young tableau of shape y is an array obtained by replacing the dots in the Ferrers diagram of y with positive integers. A tableau is normal if its entries span an initial interval of positive integers.

			The a(3) = 13 tableaux:
1 1 1   1 1 2   1 2 2   1 2 3
.
1 1   1 1   1 2   1 2   1 3
1     2     1     3     2
.
1   1   1   1
1   1   2   2
1   2   2   3

Cf. A000085, A000898, A006958, A138178, A238690, A259479, A259480, A296561, A297388, A299699, A299925, A299926, A300118, A300120, A300121, A300123, A300124.

undcon[y_]:=Select[Tuples[Range[0,#]&/@y],Function[v,GreaterEqual@@v&&With[{r=Select[Range[Length[y]],y[[#]]=!=v[[#]]&]},Or[Length[r]<=1,And@@Table[v[[i]]

A300123 Number of ways to tile the diagram of the integer partition with Heinz number n using connected skew partitions.

Original entry on oeis.org

1, 1, 2, 2, 4, 4, 8, 4, 10, 8, 16, 8, 32, 16, 20, 8, 64, 20, 128, 16, 40, 32, 256, 16, 52, 64, 52, 32, 512, 40, 1024, 16, 80, 128, 104, 40, 2048, 256, 160, 32, 4096, 80, 8192, 64, 104, 512, 16384, 32, 272, 104

Offset: 1

Gus Wiseman, Feb 25 2018

nonn

The diagram of a connected skew partition is required to be connected as a polyomino but can have empty rows or columns. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Solomon W. Golomb, Tiling with polyominoes, Journal of Combinatorial Theory, 1-2 (1966), 280-296.
Gus Wiseman, The a(25) = 52 connected tilings of (3,3).

Cf. A000085, A000898, A056239, A006958, A238690, A259479, A259480, A296150, A296561, A297388, A299699, A299925, A299926, A300060, A300118, A300120, A300121, A300122, A300124.

A300118 Number of skew partitions whose quotient diagram is connected and whose numerator is the integer partition with Heinz number n.

Original entry on oeis.org

1, 2, 3, 3, 4, 4, 5, 4, 6, 5, 6, 5, 7, 6, 7, 5, 8, 7, 9, 6, 8, 7, 10, 6, 10, 8, 10, 7, 11, 8, 12, 6, 9, 9, 11, 8, 13, 10, 10, 7, 14, 9, 15, 8, 11, 11, 16, 7, 15, 11, 11, 9, 17, 11, 12, 8, 12, 12, 18, 9, 19, 13, 12, 7, 13, 10, 20, 10, 13, 12, 21, 9, 22, 14, 15, 11

Offset: 1

Gus Wiseman, Feb 25 2018

nonn

The diagram of a connected skew partition is required to be connected as a polyomino but can have empty rows or columns.

			The a(15) = 7 denominators are (), (1), (11), (22), (3), (31), (32) with diagrams:
o o o   . o o   . o o   . . o   . . .   . . .   o o o
o o     o o     . o     . .     o o     . o     o o
Missing are the two disconnected skew partitions:
. . o   . . o
o o     . o

Cf. A000085, A000898, A056239, A006958, A138178, A153452, A238690, A259479, A259480, A296150, A297388, A299925, A299926, A300056, A300060, A300120, A300122, A300123, A300124.

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
undcon[y_]:=Select[Tuples[Range[0,#]&/@y],Function[v,GreaterEqual@@v&&With[{r=Select[Range[Length[y]],y[[#]]=!=v[[#]]&]},Or[Length[r]<=1,And@@Table[v[[i]]

cp's OEIS Frontend

A300383 In the ranked poset of integer partitions ordered by refinement, a(n) is the size of the lower ideal generated by the partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A300121 Number of normal generalized Young tableaux, of shape the integer partition with Heinz number n, with all rows and columns weakly increasing and all regions connected skew partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A300385 In the ranked poset of integer partitions ordered by refinement, number of maximal chains from the partition with Heinz number n to the local maximum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

Extensions

A238690 Let each integer m (1 <= m <= n) be factorized as m = prime_m(1)*prime_m(2)*...*prime_m(bigomega(m)), with the primes sorted in nonincreasing order. Then a(n) is the number of values of m such that each prime_m(i) <= prime_n(i).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A299926 a(n) is the number of normal generalized Young tableaux of size n with all rows and columns weakly increasing and all regions skew partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A300060 Number of domino tilings of the diagram of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

A300120 Number of skew partitions whose quotient diagram is connected and whose numerator has weight n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A300122 Number of normal generalized Young tableaux of size n with all rows and columns weakly increasing and all regions connected skew partitions.

Views

Author

Keywords

Comments

Examples

A238690 Let each integer m (1 <= m <= n) be factorized as m = prime_m(1)prime_m(2)...*prime_m(bigomega(m)), with the primes sorted in nonincreasing order. Then a(n) is the number of values of m such that each prime_m(i) <= prime_n(i).