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 11-20 of 27 results. Next

A340788 Heinz numbers of integer partitions of negative rank.

Original entry on oeis.org

4, 8, 12, 16, 18, 24, 27, 32, 36, 40, 48, 54, 60, 64, 72, 80, 81, 90, 96, 100, 108, 112, 120, 128, 135, 144, 150, 160, 162, 168, 180, 192, 200, 216, 224, 225, 240, 243, 250, 252, 256, 270, 280, 288, 300, 320, 324, 336, 352, 360, 375, 378, 384, 392, 400, 405
Offset: 1

Views

Author

Gus Wiseman, Jan 29 2021

Keywords

Comments

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.
The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

Examples

			The sequence of partitions together with their Heinz numbers begins:
      4: (1,1)             80: (3,1,1,1,1)
      8: (1,1,1)           81: (2,2,2,2)
     12: (2,1,1)           90: (3,2,2,1)
     16: (1,1,1,1)         96: (2,1,1,1,1,1)
     18: (2,2,1)          100: (3,3,1,1)
     24: (2,1,1,1)        108: (2,2,2,1,1)
     27: (2,2,2)          112: (4,1,1,1,1)
     32: (1,1,1,1,1)      120: (3,2,1,1,1)
     36: (2,2,1,1)        128: (1,1,1,1,1,1,1)
     40: (3,1,1,1)        135: (3,2,2,2)
     48: (2,1,1,1,1)      144: (2,2,1,1,1,1)
     54: (2,2,2,1)        150: (3,3,2,1)
     60: (3,2,1,1)        160: (3,1,1,1,1,1)
     64: (1,1,1,1,1,1)    162: (2,2,2,2,1)
     72: (2,2,1,1,1)      168: (4,2,1,1,1)
		

Crossrefs

Note: A-numbers of Heinz-number sequences are in parentheses below.
These partitions are counted by A064173.
The odd case is A101707 is (A340929).
The even case is A101708 is (A340930).
The positive version is (A340787).
A001222 counts prime factors.
A061395 selects the maximum prime index.
A072233 counts partitions by sum and length.
A168659 counts partitions whose length is divisible by maximum.
A200750 counts partitions whose length and maximum are relatively prime.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A063995/A105806 count partitions by Dyson rank.
A064174 counts partitions of nonnegative/nonpositive rank (A324562/A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A324518 counts partitions with rank equal to greatest part (A324517).
A324520 counts partitions with rank equal to least part (A324519).
A340601 counts partitions of even rank (A340602), with strict case A117192.
A340692 counts partitions of odd rank (A340603), with strict case A117193.

Programs

  • Mathematica
    Select[Range[2,100],PrimePi[FactorInteger[#][[-1,1]]]
    				

Formula

For all terms A061395(a(n)) < A001222(a(n)).

A208478 Triangle read by rows: T(n,k) = number of partitions of n with positive k-th rank.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 3, 2, 1, 5, 2, 4, 4, 2, 1, 6, 3, 5, 6, 4, 2, 1, 10, 5, 7, 9, 7, 4, 2, 1, 13, 7, 9, 11, 11, 7, 4, 2, 1, 19, 11, 12, 15, 16, 12, 7, 4, 2, 1, 25, 16, 15, 19, 22, 18, 12, 7, 4, 2, 1, 35, 24, 20, 26, 29, 27, 19, 12, 7, 4, 2, 1
Offset: 1

Views

Author

Omar E. Pol, Mar 07 2012

Keywords

Comments

We define the k-th rank of a partition as the k-th part minus the number of parts >= k. Every partition of n has n ranks. This is a generalization of the Dyson's rank of a partition which is the largest part minus the number of parts. Since the first part of a partition is also the largest part of the same partition so the Dyson's rank of a partition is the case for k = 1.
The sum of the k-th ranks of all partitions of n is equal to zero.
Also T(n,k) = number of partitions of n with negative k-th rank.
It appears that reversed rows converge to A000070, the same as A208482. - Omar E. Pol, Mar 11 2012
From Omar E. Pol, Dec 12 2019: (Start)
1) The k-th part of a partition of n is also the number of parts >= k of its conjugate partition.
2) The k-th rank of a partitions is also the number of parts >= k of its conjugate partition minus the number of parts >= k.
For example: for n = 9 consider the partition [5, 3, 1]. The first part is 5, so the conjugate partition has five parts >= 1. The second part is 3, so the conjugate partition has three parts >= 2. The third part is 1, so the conjugate partition has only one part >= 3. The mentioned conjugate partition is [3, 2, 2, 1, 1]. And conversely, consider the partition [3, 2, 2, 1, 1]. The first part is 3, so the conjugate partition has three parts >= 1. The second part is 2, so the conjugate partition has two parts >= 2. the Third part is 2, so the conjugate partition has two parts >= 3, and so on. In this case the conjugate partition is [5, 3, 1].
3) The difference between the k-th part and the (k+1)-st part of the partition of n is also the number of k's in its conjugate partition. For example: consider the partition [5, 3, 1]. The difference between the first and the second part is 5 - 3 = 2, equals the number of 1's in its conjugate partition. The difference between the second and the third part is 3 - 1 = 2, equals the number of 2's in its conjugate partition. The difference between the third and the fourth (virtual) part is 1 - 0 = 1, equals the number of 3's in its conjugate partition [3, 2, 2, 1, 1]. And conversely, consider the partition [3, 2, 2, 1, 1]. The difference between the first and the second part is 3 - 2 = 1, equals the number of 1's in its conjugate partition. The difference between the second and the third part is 2 - 2 = 0, equals the number of 2's in its conjugate partition. The difference between the third and the fourth part is 2 - 1 = 1, equals the number of 3's in its conjugate partition, and so on.
4) The list of n ranks of a partition of n equals the list of n ranks multiplied by -1 of its conjugate partition. For example the nine ranks of the partition [5, 3, 1] of 9 are [2, 1, -1, -1, -1, -1, 0, 0, 0], and the nine ranks of its conjugate partition [3, 2, 2, 1, 1] are [-2, -1, 1, 1, 1, 1, 0, 0, 0].
For a list of partitions of the positive integers ordered by its k-th ranks see A330370. (End)

Examples

			For n = 4 the partitions of 4 and the four types of ranks of the partitions of 4 are
----------------------------------------------------------
Partitions    First      Second       Third      Fourth
of 4          rank        rank        rank        rank
----------------------------------------------------------
4           4-1 =  3    0-1 = -1    0-1 = -1    0-1 = -1
3+1         3-2 =  1    1-1 =  0    0-1 = -1    0-0 =  0
2+2         2-2 =  0    2-2 =  0    0-0 =  0    0-0 =  0
2+1+1       2-3 = -1    1-1 =  0    1-0 =  1    0-0 =  0
1+1+1+1     1-4 = -3    1-0 =  1    1-0 =  1    1-0 =  1
----------------------------------------------------------
The number of partitions of 4 with positive k-th ranks are 2, 1, 2, 1 so row 4 lists 2, 1, 2, 1.
Triangle begins:
   0;
   1,  1;
   1,  1,  1;
   2,  1,  2,  1;
   3,  1,  3,  2,  1;
   5,  2,  4,  4,  2,  1;
   6,  3,  5,  6,  4,  2,  1;
  10,  5,  7,  9,  7,  4,  2,  1;
  13,  7,  9, 11, 11,  7,  4,  2,  1;
  19, 11, 12, 15, 16, 12,  7,  4,  2,  1;
  25, 16, 15, 19, 22, 18, 12,  7,  4,  2,  1;
  35, 24, 20, 26, 29, 27, 19, 12,  7,  4,  2,  1;
  ...
		

Crossrefs

Extensions

More terms from Alois P. Heinz, Mar 11 2012

A340787 Heinz numbers of integer partitions of positive rank.

Original entry on oeis.org

3, 5, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 46, 47, 49, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 77, 78, 79, 82, 83, 85, 86, 87, 88, 89, 91, 92, 93, 94, 95
Offset: 1

Views

Author

Gus Wiseman, Jan 29 2021

Keywords

Comments

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.
The Dyson rank of a nonempty partition is its maximum part minus its length. The rank of an empty partition is undefined.

Examples

			The sequence of partitions together with their Heinz numbers begins:
     3: (2)      28: (4,1,1)    49: (4,4)      69: (9,2)
     5: (3)      29: (10)       51: (7,2)      70: (4,3,1)
     7: (4)      31: (11)       52: (6,1,1)    71: (20)
    10: (3,1)    33: (5,2)      53: (16)       73: (21)
    11: (5)      34: (7,1)      55: (5,3)      74: (12,1)
    13: (6)      35: (4,3)      57: (8,2)      76: (8,1,1)
    14: (4,1)    37: (12)       58: (10,1)     77: (5,4)
    15: (3,2)    38: (8,1)      59: (17)       78: (6,2,1)
    17: (7)      39: (6,2)      61: (18)       79: (22)
    19: (8)      41: (13)       62: (11,1)     82: (13,1)
    21: (4,2)    42: (4,2,1)    63: (4,2,2)    83: (23)
    22: (5,1)    43: (14)       65: (6,3)      85: (7,3)
    23: (9)      44: (5,1,1)    66: (5,2,1)    86: (14,1)
    25: (3,3)    46: (9,1)      67: (19)       87: (10,2)
    26: (6,1)    47: (15)       68: (7,1,1)    88: (5,1,1,1)
		

Crossrefs

Note: A-numbers of Heinz-number sequences are in parentheses below.
These partitions are counted by A064173.
The odd case is A101707 (A340604).
The even case is A101708 (A340605).
The negative version is (A340788).
A001222 counts prime factors.
A061395 selects the maximum prime index.
A072233 counts partitions by sum and length.
A168659 = partitions whose greatest part divides their length (A340609).
A168659 = partitions whose length divides their greatest part (A340610).
A200750 = partitions whose length and maximum are relatively prime.
- Rank -
A047993 counts partitions of rank 0 (A106529).
A063995/A105806 count partitions by Dyson rank.
A064174 counts partitions of nonnegative/nonpositive rank (A324562/A324521).
A101198 counts partitions of rank 1 (A325233).
A257541 gives the rank of the partition with Heinz number n.
A324520 counts partitions with rank equal to least part (A324519).
A340601 counts partitions of even rank (A340602), with strict case A117192.
A340692 counts partitions of odd rank (A340603), with strict case A117193.

Programs

  • Mathematica
    Select[Range[2,100],PrimePi[FactorInteger[#][[-1,1]]]>PrimeOmega[#]&]

Formula

For all terms A061395(a(n)) > A001222(a(n)).

A350879 Triangle T(n,k), n >= 1, 1 <= k <= n, read by rows, where T(n,k) is the number of partitions of n such that k*(greatest part) = (number of parts).

Original entry on oeis.org

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

Views

Author

Seiichi Manyama, Jan 21 2022

Keywords

Comments

T(n,k) is the number of partitions of n such that (greatest part) = k*(number of parts).
Column k > 1 is asymptotic to k! * Pi^k * exp(sqrt(2*Pi*n/3)) / (2^((k+4)/2) * 3^((k+1)/2) * n^((k+2)/2)). Equivalently, for fixed k > 1, T(n,k) ~ k! * Pi^k * A000041(n) / (6^(k/2) * n^(k/2)). - Vaclav Kotesovec, Oct 17 2024

Examples

			Triangle begins:
  1;
  0, 1;
  1, 0, 1;
  1, 0, 0, 1;
  1, 1, 0, 0, 1;
  1, 1, 0, 0, 0, 1;
  3, 1, 1, 0, 0, 0, 1;
  2, 2, 1, 0, 0, 0, 0, 1;
  4, 1, 1, 1, 0, 0, 0, 0, 1;
  4, 2, 1, 1, 0, 0, 0, 0, 0, 1;
  6, 3, 2, 1, 1, 0, 0, 0, 0, 0, 1;
		

Crossrefs

Row sums give A168659.

Programs

  • PARI
    T(n, k) = polcoef(sum(i=1, (n+1)\(k+1), x^((k+1)*i-1)*prod(j=1, i-1, (1-x^(k*i+j-1))/(1-x^j+x*O(x^n)))), n);
    
  • Ruby
    def partition(n, min, max)
      return [[]] if n == 0
      [max, n].min.downto(min).flat_map{|i| partition(n - i, min, i).map{|rest| [i, *rest]}}
    end
    def A(n)
      a = Array.new(n, 0)
      partition(n, 1, n).each{|ary|
        (1..n).each{|i|
          a[i - 1] += 1 if i * ary[0] == ary.size
        }
      }
      a
    end
    def A350879(n)
      (1..n).map{|i| A(i)}.flatten
    end
    p A350879(14)

Formula

G.f. of column k: Sum_{i>=1} x^((k+1)*i-1) * Product_{j=1..i-1} (1-x^(k*i+j-1))/(1-x^j).

A208482 Triangle read by rows: T(n,k) = sum of positive k-th ranks of all partitions of n.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 4, 1, 2, 1, 7, 1, 3, 2, 1, 12, 2, 5, 4, 2, 1, 18, 3, 6, 6, 4, 2, 1, 29, 6, 9, 10, 7, 4, 2, 1, 42, 9, 11, 13, 11, 7, 4, 2, 1, 63, 16, 15, 19, 17, 12, 7, 4, 2, 1, 89, 24, 18, 25, 24, 18, 12, 7, 4, 2, 1, 128, 39, 24, 36, 34, 28, 19, 12, 7, 4, 2, 1
Offset: 1

Views

Author

Omar E. Pol, Mar 07 2012

Keywords

Comments

For the definition of the k-th rank see A208478.
It appears that the sum of the k-th ranks of all partitions of n is equal to zero.
It appears that reversed rows converge to A000070, the same as A208478. - Omar E. Pol, Mar 10 2012

Examples

			For n = 4 the partitions of 4 and the four types of ranks of the partitions of 4 are
----------------------------------------------------------
Partitions    First      Second       Third      Fourth
of 4          rank        rank        rank        rank
----------------------------------------------------------
4           4-1 =  3    0-1 = -1    0-1 = -1    0-1 = -1
3+1         3-2 =  1    1-1 =  0    0-1 = -1    0-0 =  0
2+2         2-2 =  0    2-2 =  0    0-0 =  0    0-0 =  0
2+1+1       2-3 = -1    1-1 =  0    1-0 =  1    0-0 =  0
1+1+1+1     1-4 = -3    1-0 =  1    1-0 =  1    1-0 =  1
----------------------------------------------------------
The sums of positive k-th ranks of the partitions of 4 are 4, 1, 2, 1 so row 4 lists 4, 1, 2, 1.
Triangle begins:
0;
1,    1;
2,    1,  1;
4,    1,  2,  1;
7,    1,  3,  2,  1;
12,   2,  5,  4,  2,  1;
18,   3,  6,  6,  4,  2,  1;
29,   6,  9, 10,  7,  4,  2,  1;
42,   9, 11, 13, 11,  7,  4,  2,  1;
63,  16, 15, 19, 17, 12,  7,  4,  2,  1;
89,  24, 18, 25, 24, 18, 12,  7,  4,  2,  1;
128, 39, 24, 36, 34, 28, 19, 12,  7,  4,  2,  1;
		

Crossrefs

Extensions

Terms a(1)-a(22) confirmed and additional terms added by John W. Layman, Mar 10 2012

A101200 Number of partitions of n with rank 3 (the rank of a partition is the largest part minus the number of parts).

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 1, 2, 2, 4, 3, 6, 7, 10, 11, 17, 18, 26, 30, 40, 47, 63, 72, 94, 111, 140, 165, 209, 244, 304, 359, 440, 519, 634, 743, 901, 1060, 1273, 1494, 1789, 2092, 2491, 2914, 3449, 4026, 4752, 5530, 6502, 7561, 8852, 10272, 11997, 13889, 16171, 18695, 21700, 25041, 29002
Offset: 1

Views

Author

Emeric Deutsch, Dec 12 2004

Keywords

Comments

Column k=3 in the triangle A063995.

Examples

			a(6)=1 because the 11 partitions 6,51,42,411,33,321,3111,222,2211,21111,111111 have ranks 5,3,2,1,1,0,-1,-1,-2,-3,-5, respectively.
		

References

  • George E. Andrews, The Theory of Partitions, Addison-Wesley, Reading, Mass., 1976.

Crossrefs

Programs

  • Maple
    with(combinat): for n from 1 to 45 do P:=partition(n): c:=0: for j from 1 to nops(P) do if P[j][nops(P[j])]-nops(P[j])=3 then c:=c+1 else c:=c fi od: a[n]:=c: od: seq(a[n],n=1..45);
  • Mathematica
    Table[Count[IntegerPartitions[n],?(#[[1]]-Length[#]==3&)],{n,60}] (* _Harvey P. Dale, Feb 11 2025 *)

Extensions

More terms, Joerg Arndt, Oct 07 2012

A117195 Triangle read by rows: T(n,k) = number of partitions into distinct parts having rank k, 0<=k

Original entry on oeis.org

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

Views

Author

Reinhard Zumkeller, Mar 03 2006

Keywords

Comments

T(n,0) = A010054(n), T(n,1) = 1-A010054(n) for n>1;
A000009(n) = Sum(T(n,k): 0<=k
A117192(n) = Sum(T(n,k)*(1 - k mod 2): 0<=k
A117193(n) = Sum(T(n,k)*(k mod 2): 0<=k
A117194(n) = Sum(T(n,k)*(1 - k mod 2): 0

Examples

			Triangle starts:
[ 1]   1,
[ 2]   0, 1,
[ 3]   1, 0, 1,
[ 4]   0, 1, 0, 1,
[ 5]   0, 1, 1, 0, 1,
[ 6]   1, 0, 1, 1, 0, 1,
[ 7]   0, 1, 1, 1, 1, 0, 1,
[ 8]   0, 1, 1, 1, 1, 1, 0, 1,
[ 9]   0, 1, 1, 2, 1, 1, 1, 0, 1,
[10]   1, 0, 2, 1, 2, 1, 1, 1, 0, 1,
[11]   0, 1, 1, 2, 2, 2, 1, 1, 1, 0, 1,
[12]   0, 1, 2, 2, 2, 2, 2, 1, 1, 1, 0, 1,
[13]   0, 1, 1, 3, 2, 3, 2, 2, 1, 1, 1, 0, 1,
[14]   0, 1, 2, 2, 4, 2, 3, 2, 2, 1, 1, 1, 0, 1, ...
T(12,0) = #{} = 0,
T(12,1) = #{5+4+2+1} = 1,
T(12,2) = #{6+3+2+1, 5+4+3} = 2,
T(12,3) = #{6+5+1, 6+4+2} = 2,
T(12,4) = #{7+4+1, 7+3+2} = 2,
T(12,5) = #{8+3+1, 7+5} = 2,
T(12,6) = #{9+2+1, 8+4} = 2,
T(12,7) = #{9+3} = 1,
T(12,8) = #{10+2} = 1,
T(12,9) = #{11+1} = 1,
T(12,10) = #{} = 0,
T(12,11) = #{12} = 1.
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i, k) option remember;
          if n<0 or k<0 then []
        elif n=0 then [0$k, 1]
        elif i<1 then []
        else zip ((x, y)-> x+y, b(n, i-1, k), b(n-i, i-1, k-1), 0)
          fi
        end:
    T:= proc(n) local j, r; r:= [];
          for j from 0 to n do
            r:= zip ((x, y)-> x+y, r, b(n-j, j-1, j-1), 0)
          od; r[]
        end:
    seq (T(n), n=1..20);  # Alois P. Heinz, Aug 29 2011
  • Mathematica
    b[n_, i_, k_] := b[n, i, k] = Which[n<0 || k<0, {}, n == 0, Append[Array[0&, k], 1], i<1, {}, True, Plus @@ PadRight[{b[n, i-1, k], b[n-i, i-1, k-1]}]]; T[n_] := Module[{j, r}, r = {}; For[j = 0, j <= n, j++, r = Plus @@ PadRight[{r, b[n-j, j-1, j-1]}]]; r]; Table[T[n], {n, 1, 20}] // Flatten (* Jean-François Alcover, Jan 30 2014, after Alois P. Heinz *)
  • PARI
    N=33;  L=1+2*ceil(sqrtint(N));
    q='q+O(q^N);
    gf=sum(n=1,L, q^(n*(n+1)/2) / prod(k=1,n,1-z*q^k) );
    v=Vec(gf);
    { for (n=1,#v,  /* print triangle: */
        p = Pol(v[n], 'z) + 'c0;
        p = polrecip(p);
        rw = Vec(p);  rw[1] -= 'c0;
        print1("[", n, "]   " );
        print( rw );
    ); }
    /* Joerg Arndt, Oct 07 2012 */

Formula

G.f.: sum(n>=1, q^(n*(n+1)/2) / prod(k=1..n, 1-z*q^k) ), see Monks reference. [Joerg Arndt, Oct 07 2012]

A101199 Number of partitions of n with rank 2 (the rank of a partition is the largest part minus the number of parts).

Original entry on oeis.org

0, 0, 1, 0, 1, 1, 2, 2, 3, 3, 6, 6, 9, 10, 15, 16, 23, 27, 36, 42, 55, 64, 84, 98, 124, 147, 185, 217, 270, 318, 391, 461, 562, 661, 802, 942, 1132, 1331, 1592, 1864, 2220, 2597, 3077, 3593, 4240, 4940, 5811, 6758, 7916, 9192, 10737, 12438, 14488, 16755, 19459, 22465, 26024, 29987
Offset: 1

Author

Emeric Deutsch, Dec 12 2004

Keywords

Comments

Column k=2 in the triangle A063995.

Examples

			a(6)=1 because the 11 partitions 6,51,42,411,33,321,3111,222,2211,21111,111111 have ranks 5,3,2,1,1,0,-1,-1,-2,-3,-5, respectively.
		

References

  • George E. Andrews, The Theory of Partitions, Addison-Wesley, Reading, Mass., 1976.

Crossrefs

Programs

  • Maple
    with(combinat): for n from 1 to 45 do P:=partition(n): c:=0: for j from 1 to nops(P) do if P[j][nops(P[j])]-nops(P[j])=2 then c:=c+1 else c:=c fi od: a[n]:=c: od: seq(a[n],n=1..45);
  • Mathematica
    Table[Count[Max[#]-Length[#]&/@IntegerPartitions[n],2],{n,60}] (* Harvey P. Dale, Dec 22 2018 *)

Formula

a(n) ~ Pi * exp(Pi*sqrt(2*n/3)) / (3 * 2^(9/2) * n^(3/2)). - Vaclav Kotesovec, May 26 2023

Extensions

More terms from Joerg Arndt, Oct 07 2012

A325234 Heinz numbers of integer partitions with Dyson rank -1.

Original entry on oeis.org

4, 12, 18, 27, 40, 60, 90, 100, 112, 135, 150, 168, 225, 250, 252, 280, 352, 375, 378, 392, 420, 528, 567, 588, 625, 630, 700, 792, 832, 880, 882, 945, 980, 1050, 1188, 1232, 1248, 1320, 1323, 1372, 1470, 1575, 1750, 1782, 1848, 1872, 1936, 1980, 2058, 2080
Offset: 1

Author

Gus Wiseman, Apr 13 2019

Keywords

Comments

Numbers whose maximum prime index is one fewer than their number of prime indices counted with multiplicity.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Examples

			The sequence of terms together with their prime indices begins:
     4: {1,1}
    12: {1,1,2}
    18: {1,2,2}
    27: {2,2,2}
    40: {1,1,1,3}
    60: {1,1,2,3}
    90: {1,2,2,3}
   100: {1,1,3,3}
   112: {1,1,1,1,4}
   135: {2,2,2,3}
   150: {1,2,3,3}
   168: {1,1,1,2,4}
   225: {2,2,3,3}
   250: {1,3,3,3}
   252: {1,1,2,2,4}
   280: {1,1,1,3,4}
   352: {1,1,1,1,1,5}
   375: {2,3,3,3}
   378: {1,2,2,2,4}
   392: {1,1,1,4,4}
		

Programs

  • Mathematica
    Select[Range[1000],PrimePi[FactorInteger[#][[-1,1]]]-PrimeOmega[#]==-1&]

A325235 Heinz numbers of integer partitions with Dyson rank 1 or -1.

Original entry on oeis.org

3, 4, 10, 12, 15, 18, 25, 27, 28, 40, 42, 60, 63, 70, 88, 90, 98, 100, 105, 112, 132, 135, 147, 150, 168, 175, 198, 208, 220, 225, 245, 250, 252, 280, 297, 308, 312, 330, 343, 352, 375, 378, 392, 420, 462, 468, 484, 495, 520, 528, 544, 550, 567, 588, 625, 630
Offset: 1

Author

Gus Wiseman, Apr 13 2019

Keywords

Comments

Numbers whose maximum prime index and number of prime indices counted with multiplicity differ by 1.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Examples

			The sequence of terms together with their prime indices begins:
    3: {2}
    4: {1,1}
   10: {1,3}
   12: {1,1,2}
   15: {2,3}
   18: {1,2,2}
   25: {3,3}
   27: {2,2,2}
   28: {1,1,4}
   40: {1,1,1,3}
   42: {1,2,4}
   60: {1,1,2,3}
   63: {2,2,4}
   70: {1,3,4}
   88: {1,1,1,5}
   90: {1,2,2,3}
   98: {1,4,4}
  100: {1,1,3,3}
  105: {2,3,4}
  112: {1,1,1,1,4}
		

Crossrefs

Programs

  • Mathematica
    Select[Range[1000],Abs[PrimePi[FactorInteger[#][[-1,1]]]-PrimeOmega[#]]==1&]
Previous Showing 11-20 of 27 results. Next