A296188 -id:A296188 - cp's OEIS frontend

A093641 Numbers of form 2^i * prime(j), i>=0, j>0, together with 1.

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 16, 17, 19, 20, 22, 23, 24, 26, 28, 29, 31, 32, 34, 37, 38, 40, 41, 43, 44, 46, 47, 48, 52, 53, 56, 58, 59, 61, 62, 64, 67, 68, 71, 73, 74, 76, 79, 80, 82, 83, 86, 88, 89, 92, 94, 96, 97, 101, 103, 104, 106, 107, 109, 112

Offset: 1

Reinhard Zumkeller, Apr 07 2004

a(n) is either 1, prime, or of form 2a(m), m

1 and Heinz numbers of hook integer partitions. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k). A hook is a partition of the form (n,1,1,...,1). - Gus Wiseman, Sep 15 2018

Numbers whose odd part is noncomposite. - Peter Munn, Aug 06 2020

			55 is not a member, as 5*11 is not of the form 2^i * prime.

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

A093640(a(n)) = A000005(a(n)); A000040 and A000079 are subsequences.
A105440 is a subsequence, see also A105442. - Reinhard Zumkeller, Apr 09 2005
Cf. A078822, A007088.
Complement of A105441; A001221(a(n))<=2; A005087(a(n))<=1; A087436(a(n))<=1.
See also A105442.
Union of A038550 and A000079, see also A008578.
Cf. A082733, A153452, A296188, A296561, A300121, A304438, A305940, A317554.
Cf. A000265 (odd part), A008578 (noncomposite).

a093641 n = a093641_list !! (n-1)
a093641_list = filter ((<= 2) . a001227) [1..]
-- Reinhard Zumkeller, May 01 2012

hookQ[n_]:=MatchQ[DeleteCases[FactorInteger[n],{2,}],{}|{{,1}}];
Select[Range[100],hookQ] (* Gus Wiseman, Sep 15 2018 *)

upTo(lim)=my(v=List([1])); for(e=0, log(lim)\log(2), forprime(p=2, lim>>e, listput(v,p<Charles R Greathouse IV, Aug 21 2011

isok(m) = my(k=m/2^valuation(m,2)); (k == 1) || isprime(k); \\ Michel Marcus, Mar 16 2023

from sympy import primepi
def A093641(n):
    def bisection(f,kmin=0,kmax=1):
        while f(kmax) > kmax: kmax <<= 1
        kmin = kmax >> 1
        while kmax-kmin > 1:
            kmid = kmax+kmin>>1
            if f(kmid) <= kmid:
                kmax = kmid
            else:
                kmin = kmid
        return kmax
    def f(x): return n-1+x-sum(primepi(x>>i) for i in range(x.bit_length()))
    return bisection(f,n,n) # Chai Wah Wu, Feb 02 2025

A001227(a(n)) <= 2. - Reinhard Zumkeller, May 01 2012

Number A(x) of a(n) not exceeding x equals 1 + pi(x) + pi(x/2) + pi(x/4) + ..., where pi(x) is the number of primes <= x. If x goes to infinity, A(x)~2*x/log(x) and a(n)~n*log(n)/2 (n-->infinity). - Vladimir Shevelev, Feb 06 2014

A053529 a(n) = n! * number of partitions of n.

Original entry on oeis.org

1, 1, 4, 18, 120, 840, 7920, 75600, 887040, 10886400, 152409600, 2235340800, 36883123200, 628929100800, 11769069312000, 230150688768000, 4833164464128000, 105639166144512000, 2464913876705280000, 59606099200327680000, 1525429559126753280000, 40464026199993876480000

Offset: 0

N. J. A. Sloane, Jan 16 2000

Commuting permutations: number of ordered pairs (g, h) in Sym(n) such that gh = hg.
Equivalently sum of the order of all normalizers of all cyclic subgroups of Sym(n). - Olivier Gérard, Apr 04 2012
From Gus Wiseman, Jan 16 2019: (Start)
Also the number of Young tableaux with distinct entries from 1 to n, where a Young tableau is an array obtained by replacing the dots in the Ferrers diagram of an integer partition of n with positive integers. For example, the a(3) = 18 tableaux are:
  123  213  132  312  231  321
.
  12   21   13   31   23   32
  3    3    2    2    1    1
.
  1  2  1  3  2  3
  2  1  3  1  3  2
  3  3  2  2  1  1
(End)

R. P. Stanley, Enumerative Combinatorics, Cambridge, Vol. 2, 1999; see Problem 5.12, solution.

T. D. Noe, Table of n, a(n) for n = 0..200
M. Holloway, M. Shattuck, Commuting pairs of functions on a finite set, PU.M.A, Volume 24 (2013), Issue No. 1.
M. Holloway, M. Shattuck, Commuting pairs of functions on a finite set, Research Gate, 2015.
R. P. Stanley, Pairs with equal squares, Problem 10654, Amer. Math. Monthly, 107 (April 2000), solution p. 368.
Wikipedia, Young tableau

Column k=2 of A362827.
Cf. A000041, A072169, A061256.
Sequences counting pairs of functions from an n-set to itself: A053529, A181162, A239749-A239785, A239836-A239841.
Cf. A000085, A117433, A153452, A296188, A323295, A323434, A323436.

a:= func< n | NumberOfPartitions(n)*Factorial(n) >; [ a(n) : n in [0..25]]; // Vincenzo Librandi, Jan 17 2019

seq(count(Permutation(n))*count(Partition(n)),n=1..20); # Zerinvary Lajos, Oct 16 2006
with(combinat): A053529 := proc(n): n! * numbpart(n) end: seq(A053529(n), n=0..20); # Johannes W. Meijer, Jul 28 2016

Table[PartitionsP[n] n!, {n, 0, 20}] (* T. D. Noe, Jun 19 2012 *)

N=66; x='x+O('x^N); Vec(serlaplace(exp(sum(k=1, N, x^k/(1-x^k)/k)))) \\ Joerg Arndt, Apr 16 2010

N=66; x='x+O('x^N); Vec(serlaplace(sum(n=0, N, x^n/prod(k=1,n,1-x^k)))) \\ Joerg Arndt, Jan 29 2011

a(n) = n!*numbpart(n); \\ Michel Marcus, Jul 28 2016

from math import factorial
from sympy import npartitions
def A053529(n): return factorial(n)*npartitions(n) # Chai Wah Wu, Jul 10 2023

E.g.f: Sum_{n>=0} x^n/(Product_{k=1..n} 1-x^k) = exp(Sum_{n>=1} (x^n/n)/(1-x^n)). - Joerg Arndt, Jan 29 2011
a(n) = Sum{k=1..n} (((n-1)!/(n-k)!)*sigma(k)*a(n-k)), n > 0, and a(0)=1. See A274760. - Johannes W. Meijer, Jul 28 2016
a(n) ~ sqrt(Pi/6)*exp(sqrt(2/3)*Pi*sqrt(n))*n^n/(2*exp(n)*sqrt(n)). - Ilya Gutkovskiy, Jul 28 2016

A138178 Number of symmetric matrices with nonnegative integer entries and without zero rows or columns such that sum of all entries is equal to n.

Original entry on oeis.org

1, 1, 3, 9, 33, 125, 531, 2349, 11205, 55589, 291423, 1583485, 8985813, 52661609, 319898103, 2000390153, 12898434825, 85374842121, 580479540219, 4041838056561, 28824970996809, 210092964771637, 1564766851282299, 11890096357039749, 92151199272181629

Offset: 0

Vladeta Jovovic, Mar 03 2008

Number of normal semistandard Young tableaux of size n, where a tableau is normal if its entries span an initial interval of positive integers. - Gus Wiseman, Feb 23 2018

			a(4) = 33 because there are 1 such matrix of type 1 X 1, 7 matrices of type 2 X 2, 15 of type 3 X 3 and 10 of type 4 X 4, cf. A138177.
From _Gus Wiseman_, Feb 23 2018: (Start)
The a(3) = 9 normal semistandard Young tableaux:
1   1 2   1 3   1 2   1 1   1 2 3   1 2 2   1 1 2   1 1 1
2   3     2     2     2
3
(End)
From _Gus Wiseman_, Nov 14 2018: (Start)
The a(4) = 33 matrices:
[4]
.
[30][21][20][11][10][02][01]
[01][10][02][11][03][20][12]
.
[200][200][110][101][100][100][100][100][011][010][010][010][001][001][001]
[010][001][100][010][020][011][010][001][100][110][101][100][020][010][001]
[001][010][001][100][001][010][002][011][100][001][010][002][100][101][110]
.
[1000][1000][1000][1000][0100][0100][0010][0010][0001][0001]
[0100][0100][0010][0001][1000][1000][0100][0001][0100][0010]
[0010][0001][0100][0010][0010][0001][1000][1000][0010][0100]
[0001][0010][0001][0100][0001][0010][0001][0100][1000][1000]
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..500

Row sums of A138177.
Cf. A007716, A120733, A135588, A296188.
Cf. A057151, A104601, A104602, A120732, A316983, A320796, A321401, A321405, A321407.

gf:= proc(j) local k, n; add(add((-1)^(n-k) *binomial(n, k) *(1-x)^(-k) *(1-x^2)^(-binomial(k, 2)), k=0..n), n=0..j) end: a:= n-> coeftayl(gf(n+1), x=0, n): seq(a(n), n=0..25); # Alois P. Heinz, Sep 25 2008

Table[Sum[SeriesCoefficient[1/(2^(k+1)*(1-x)^k*(1-x^2)^(k*(k-1)/2)),{x,0,n}],{k,0,Infinity}],{n,0,20}]  (* Vaclav Kotesovec, Jul 03 2014 *)
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/@#],Sort[Reverse/@#]==#]&]],{n,5}] (* Gus Wiseman, Nov 14 2018 *)

G.f.: Sum_{n>=0} Sum_{k=0..n} (-1)^(n-k)*C(n,k)*(1-x)^(-k)*(1-x^2)^(-C(k,2)).

G.f.: Sum_{n>=0} 2^(-n-1)*(1-x)^(-n)*(1-x^2)^(-C(n,2)). - Vladeta Jovovic, Dec 09 2009

More terms from Alois P. Heinz, Sep 25 2008

A321765 Irregular triangle read by rows where T(H(u),H(v)) is the coefficient of s(v) in p(u), where H is Heinz number, p is power sum symmetric functions, and s is Schur functions.

Original entry on oeis.org

1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 0, -1, 1, 0, -1, 1, -1, 1, 2, 1, 1, 2, -1, -1, 1, 1, -1, 0, 0, 1, 1, -1, 0, 0, 1, -1, 1, 1, 0, 1, -1, -1, 1, 0, -1, 0, 0, 1, 0, 0, -1, 1, -1, 1, 0, -1, 1, 0, 0, -1

Offset: 1

Gus Wiseman, Nov 20 2018

Row n has length A000041(A056239(n)).

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

			Triangle begins:
   1
   1
   1  -1
   1   1
   1  -1   1
   1   0  -1
   1   0  -1   1  -1
   1   2   1
   1   2  -1  -1   1
   1  -1   0   0   1
   1  -1   0   0   1  -1   1
   1   0   1  -1  -1
   1   0  -1   0   0   1   0   0  -1   1  -1
   1   0  -1   1   0   0  -1
For example, row 12 gives: p(211) = s(4) + s(31) - s(211) - s(1111).

Wikipedia, Symmetric polynomial

Row sums are A317554.

Cf. A000085, A008480, A056239, A082733, A124795, A153452, A296188, A296561, A300121, A304438, A317552, A317554, A321742-A321765.

A321935 Tetrangle: T(n,H(u),H(v)) is the coefficient of p(v) in S(u), where u and v are integer partitions of n, H is Heinz number, p is the basis of power sum symmetric functions, and S is the basis of augmented Schur functions.

Original entry on oeis.org

1, 1, 1, -1, 1, 2, 3, 1, -1, 0, 1, 2, -3, 1, 6, 3, 8, 6, 1, 0, 3, -4, 0, 1, -2, -1, 0, 2, 1, 2, -1, 0, -2, 1, -6, 3, 8, -6, 1, 24, 30, 20, 15, 20, 10, 1, -6, 0, -5, 0, 5, 5, 1, 0, -6, 4, 3, -4, 2, 1, 0, 6, -4, 3, -4, -2, 1, 4, 0, 0, -5, 0, 0, 1, -6, 0, 5, 0, 5

Offset: 1

Gus Wiseman, Nov 23 2018

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

We define the augmented Schur functions to be S(y) = |y|! * s(y) / syt(y), where s is the basis of Schur functions and syt(y) is the number of standard Young tableaux of shape y.

			Tetrangle begins (zeros not shown):
  (1):  1
.
  (2):   1  1
  (11): -1  1
.
  (3):    2  3  1
  (21):  -1     1
  (111):  2 -3  1
.
  (4):     6  3  8  6  1
  (22):       3 -4     1
  (31):   -2 -1     2  1
  (211):   2 -1    -2  1
  (1111): -6  3  8 -6  1
.
  (5):     24 30 20 15 20 10  1
  (41):    -6    -5     5  5  1
  (32):       -6  4  3 -4  2  1
  (221):       6 -4  3 -4 -2  1
  (311):    4       -5        1
  (2111):  -6     5     5 -5  1
  (11111): 24 30 20 15 20 10  1
For example, row 14 gives: S(32) = 4p(32) - 6p(41) + 3p(221) - 4p(311) + 2p(2111) + p(11111).

Wikipedia, Symmetric polynomial

This is a regrouping of the triangle A321900.

Cf. A008480, A056239, A124794, A124795, A153452 (standard Young tableaux), A215366, A296188, A300121, A319191, A319193, A321908, A321912-A321934.

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.

A296561 Number of rim-hook (or border-strip) tableaux whose shape is the integer partition with Heinz number n.

Original entry on oeis.org

1, 1, 2, 2, 4, 5, 8, 4, 10, 12, 16, 12, 32, 28, 29, 8, 64, 29, 128, 33, 78, 64, 256, 28, 62, 144, 62, 86, 512, 100, 1024, 16, 200, 320, 193, 78, 2048, 704, 496, 86, 4096, 306, 8192, 216, 242, 1536, 16384, 64, 414, 242, 1200, 528, 32768, 193, 552, 245, 2848, 3328

Offset: 1

Gus Wiseman, Feb 15 2018

nonn

The Murnaghan-Nakayama rule uses rim-hook tableaux to expand Schur functions in terms of power-sum symmetric functions.

			The a(6) = 5 tableaux:
3 2   3 1   2 2   2 1   1 1
1     2     1     2     1

Richard P. Stanley, Enumerative Combinatorics Volume 2, Cambridge University Press, 1999, Chapter 7.17.

Wikipedia, Murnaghan-Nakayama rule

Cf. A000085, A001222, A056239, A063834, A112798, A122111, A138178, A153452, A296150, A296188, A299202.

A323436 Number of plane partitions whose parts are the prime indices of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 3, 1, 2, 2, 5, 1, 4, 1, 3, 2, 2, 1, 5, 2, 2, 3, 3, 1, 4, 1, 7, 2, 2, 2, 8, 1, 2, 2, 5, 1, 4, 1, 3, 3, 2, 1, 7, 2, 4, 2, 3, 1, 7, 2, 5, 2, 2, 1, 8, 1, 2, 3, 11, 2, 4, 1, 3, 2, 4, 1, 12, 1, 2, 4, 3, 2, 4, 1, 7, 5, 2, 1, 8, 2, 2

Offset: 0

Gus Wiseman, Jan 15 2019

nonn

Number of ways to fill a Young diagram with the prime indices of n such that all rows and columns are weakly decreasing.

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The a(120) = 12 plane partitions:
  32111
.
  311   321   3111   3211
  21    11    2      1
.
  31   32   311   321
  21   11   2     1
  1    1    1     1
.
  31   32
  2    1
  1    1
  1    1
.
  3
  2
  1
  1
  1

Cf. A000085, A000219, A003293, A056239, A112798, A114736, A117433, A138178, A296188, A299968.

Cf. A323300, A323429, A323437, A323438, A323439.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
ptnplane[n_]:=Union[Map[Reverse@*primeMS,Join@@Permutations/@facs[n],{2}]];
Table[Length[Select[ptnplane[y],And[And@@GreaterEqual@@@#,And@@(GreaterEqual@@@Transpose[PadRight[#]])]&]],{y,100}]

A299925 Number of chains in Young's lattice from () to the partition with Heinz number n.

Original entry on oeis.org

1, 1, 2, 2, 4, 6, 8, 4, 12, 16, 16, 16, 32, 40, 44, 8, 64, 44, 128, 52, 136, 96, 256, 40, 88, 224, 88, 152, 512, 204, 1024, 16, 384, 512, 360, 136, 2048, 1152, 1024, 152, 4096, 744, 8192, 416, 496, 2560, 16384, 96, 720, 496, 2624, 1088, 32768, 360, 1216, 504

Offset: 1

Gus Wiseman, Feb 21 2018

nonn

a(n) is the 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 skew-partitions. 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) = 12 tableaux:
1 3   1 2
2 4   3 4
.
1 3   1 2   1 2   1 2   1 1
2 3   3 3   2 3   1 3   2 3
.
1 2   1 2   1 1   1 1
2 2   1 2   2 2   1 2
.
1 1
1 1
The a(9) = 12 chains of Heinz numbers:
1<9,
1<2<9, 1<3<9, 1<4<9, 1<6<9,
1<2<3<9, 1<2<4<9, 1<2<6<9, 1<3<6<9, 1<4<6<9,
1<2<3<6<9, 1<2<4<6<9.

Cf. A000085, A001222, A056239, A063834, A112798, A122111, A138178, A153452, A238690, A296150, A296188, A296561, A297388, A299202.

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
hncQ[a_,b_]:=And@@GreaterEqual@@@Transpose[PadRight[{Reverse[primeMS[b]],Reverse[primeMS[a]]}]];
chns[x_,y_]:=chns[x,y]=Join[{{x,y}},Join@@Function[c,Append[#,y]&/@chns[x,c]]/@Select[Range[x+1,y-1],hncQ[x,#]&&hncQ[#,y]&]];
Table[Length[chns[1,n]],{n,30}]

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}]

Showing 1-10 of 49 results. Next

cp's OEIS Frontend

A093641 Numbers of form 2^i * prime(j), i>=0, j>0, together with 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

PARI

Python

Formula

A053529 a(n) = n! * number of partitions of n.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

PARI

PARI

Python

Formula

A138178 Number of symmetric matrices with nonnegative integer entries and without zero rows or columns such that sum of all entries is equal to n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A321765 Irregular triangle read by rows where T(H(u),H(v)) is the coefficient of s(v) in p(u), where H is Heinz number, p is power sum symmetric functions, and s is Schur functions.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

A321935 Tetrangle: T(n,H(u),H(v)) is the coefficient of p(v) in S(u), where u and v are integer partitions of n, H is Heinz number, p is the basis of power sum symmetric functions, and S is the basis of augmented Schur functions.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

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

A296561 Number of rim-hook (or border-strip) tableaux whose shape is the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

References

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).