A325367 -id:A325367 - cp's OEIS frontend

A325467 Heinz numbers of integer partitions y such that the k-th differences of y are distinct (independently) for all k >= 0.

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103, 106, 107

Offset: 1

Gus Wiseman, May 03 2019

nonn

First differs from A301899 in having 70 and lacking 105.
First differs from A325398 in having 70.
First differs from A319315 in having 966.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The differences of a sequence are defined as if the sequence were increasing, so for example the differences of (6,3,1) are (-3,-2).
The zeroth differences of a sequence are the sequence itself, while the k-th differences for k > 0 are the differences of the (k-1)-th differences.
The enumeration of these partitions by sum is given by A325468.

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    3: {2}
    5: {3}
    6: {1,2}
    7: {4}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   15: {2,3}
   17: {7}
   19: {8}
   21: {2,4}
   22: {1,5}
   23: {9}
   26: {1,6}
   29: {10}
   31: {11}
   33: {2,5}
For example, the k-th differences for k = 0...3 of the partition (9,4,2,1) with Heinz number 966 are
   9  4  2  1
  -5 -2 -1
   3  1
  -2
and since the entries of each row are distinct, 966 belongs to the sequence.

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

A subsequence of A005117.

Cf. A056239, A112798, A325366, A325367, A325368, A325397, A325398, A325399, A325400, A325405, A325468.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
Select[Range[100],And@@Table[UnsameQ@@Differences[primeptn[#],k],{k,0,PrimeOmega[#]}]&]

A383507 Number of Wilf and conjugate Wilf integer partitions of n.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 6, 7, 9, 12, 14, 19, 20, 27, 30, 31, 40, 50, 56, 68, 76, 86, 112, 126, 139, 170, 197, 216, 251, 297, 317, 378, 411, 466, 521, 607, 621, 745, 791, 892, 975, 1123, 1163, 1366, 1439, 1635, 1757, 2021, 2080, 2464, 2599, 2882, 3116, 3572, 3713

Offset: 0

Gus Wiseman, May 14 2025

nonn

An integer partition is Wilf iff its multiplicities are all different (ranked by A130091). It is conjugate Wilf iff its nonzero 0-appended differences are all different (ranked by A383512).

			The a(1) = 1 through a(8) = 9 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (322)      (44)
                    (1111)  (11111)  (222)     (331)      (332)
                                     (411)     (511)      (611)
                                     (3111)    (4111)     (2222)
                                     (111111)  (31111)    (5111)
                                               (1111111)  (41111)
                                                          (311111)
                                                          (11111111)

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

A048768 gives Look-and-Say fixed points, counted by A217605.
A098859 counts Wilf partitions, ranks A130091, conjugate A383512.
A239455 counts Look-and-Say partitions, complement A351293.
A325349 counts partitions with distinct augmented differences, ranks A325366.
A336866 counts non Wilf partitions, ranks A130092, conjugate A383513.
A381431 is the section-sum transform, union A381432, complement A381433.
A383534 gives 0-prepended differences by rank, see A325351.
A383709 counts Wilf partitions with distinct 0-appended differences.
Cf. A047966, A048767, A111133, A320348, A325324, A325325, A325367, A325368, A325388, A351294, A383506.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@Length/@Split[#] && UnsameQ@@DeleteCases[Differences[Append[#,0]],0]&]],{n,0,30}]

These partitions have Heinz numbers A130091 /\ A383512.

A383712 Heinz numbers of integer partitions with distinct multiplicities (Wilf) and distinct 0-appended differences.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 9, 11, 13, 17, 19, 20, 23, 25, 28, 29, 31, 37, 41, 43, 44, 45, 47, 49, 50, 52, 53, 59, 61, 67, 68, 71, 73, 75, 76, 79, 83, 89, 92, 97, 98, 99, 101, 103, 107, 109, 113, 116, 117, 121, 124, 127, 131, 137, 139, 148, 149, 151, 153, 157, 163, 164

Offset: 1

Gus Wiseman, May 15 2025

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

Integer partitions with distinct multiplicities are called Wilf partitions.

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    9: {2,2}
   11: {5}
   13: {6}
   17: {7}
   19: {8}
   20: {1,1,3}
   23: {9}
   25: {3,3}
   28: {1,1,4}
   29: {10}
   31: {11}
   37: {12}
   41: {13}
   43: {14}
   44: {1,1,5}
   45: {2,2,3}
   47: {15}
   49: {4,4}
   50: {1,3,3}

Gus Wiseman, Sequences counting and ranking integer partitions by the differences of their successive parts.

For just distinct multiplicities we have A130091 (conjugate A383512), counted by A098859.
For just distinct 0-appended differences we have A325367, counted by A325324.
These partitions are counted by A383709.
A000040 lists the primes, differences A001223.
A048767 is the Look-and-Say transform, union A351294, complement A351295.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts Look-and-Say partitions, complement A351293.
A336866 counts non Wilf partitions, ranks A130092, conjugate A383513.
A383507 counts partitions that are Wilf and conjugate Wilf, ranks A383532.
A383530 counts partitions that are not Wilf or conjugate-Wilf, ranks A383531.
Cf. A000720, A005117, A047966, A238745, A320348, A325325, A325349, A325355, A325366, A325368, A325388, A383506.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],UnsameQ@@Length/@Split[prix[#]] && UnsameQ@@Differences[Append[Reverse[prix[#]],0]]&]

Equals A130091 /\ A325367.

A383535 Heinz number of the positive first differences of the 0-prepended prime indices of n.

Original entry on oeis.org

1, 2, 3, 2, 5, 4, 7, 2, 3, 6, 11, 4, 13, 10, 6, 2, 17, 4, 19, 6, 9, 14, 23, 4, 5, 22, 3, 10, 29, 8, 31, 2, 15, 26, 10, 4, 37, 34, 21, 6, 41, 12, 43, 14, 6, 38, 47, 4, 7, 6, 33, 22, 53, 4, 15, 10, 39, 46, 59, 8, 61, 58, 9, 2, 25, 20, 67, 26, 51, 12, 71, 4, 73

Offset: 1

Gus Wiseman, May 21 2025

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

Also Heinz number of the first differences of the distinct 0-prepended prime indices of n.

			The terms together with their prime indices begin:
     1: {}        2: {1}        31: {11}       38: {1,8}
     2: {1}      17: {7}         2: {1}        47: {15}
     3: {2}       4: {1,1}      15: {2,3}       4: {1,1}
     2: {1}      19: {8}        26: {1,6}       7: {4}
     5: {3}       6: {1,2}      10: {1,3}       6: {1,2}
     4: {1,1}     9: {2,2}       4: {1,1}      33: {2,5}
     7: {4}      14: {1,4}      37: {12}       22: {1,5}
     2: {1}      23: {9}        34: {1,7}      53: {16}
     3: {2}       4: {1,1}      21: {2,4}       4: {1,1}
     6: {1,2}     5: {3}         6: {1,2}      15: {2,3}
    11: {5}      22: {1,5}      41: {13}       10: {1,3}
     4: {1,1}     3: {2}        12: {1,1,2}    39: {2,6}
    13: {6}      10: {1,3}      43: {14}       46: {1,9}
    10: {1,3}    29: {10}       14: {1,4}      59: {17}
     6: {1,2}     8: {1,1,1}     6: {1,2}       8: {1,1,1}

For multiplicities instead of differences we have A181819.
Positions of first appearances are A358137.
Positions of squarefree numbers are A383512, counted by A098859.
Positions of nonsquarefree numbers are A383513, counted by A336866.
These are Heinz numbers of rows of A383534.
A000040 lists the primes, differences A001223.
A048767 is the Look-and-Say transform, union A351294, complement A351295.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A320348 counts strict partitions with distinct 0-appended differences, ranks A325388.
A325324 counts partitions with distinct 0-appended differences, ranks A325367.
Cf. A122111, A124010 (prime signature), A130091, A287352, A325351, A325366, A325368, A355536, A381431, A384008, A384009.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Times@@Prime/@DeleteCases[Differences[Prepend[prix[n],0]],0],{n,100}]

A001222(a(n)) = A001221(n).
A056239(a(n)) = A061395(n).
A055396(a(n)) = A055396(n).
A061395(a(n)) = A241919(n).

A325392 Number of permutations of the multiset of prime factors of n whose first part is not 2.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 0, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 0, 2, 1, 2, 3, 1, 1, 2, 1, 1, 4, 1, 1, 3, 1, 1, 1, 1, 2, 2, 1, 1, 3, 2, 1, 2, 1, 1, 6, 1, 1, 3, 0, 2, 4, 1, 1, 2, 4, 1, 4, 1, 1, 3, 1, 2, 4, 1, 1, 1, 1, 1, 6, 2, 1, 2, 1, 1, 9, 2, 1, 2, 1, 2, 1, 1, 2, 3, 3, 1, 4, 1, 1, 6

Offset: 1

Gus Wiseman, May 02 2019

nonn

			The a(90) = 9 permutations of {2,3,3,5} not starting with 2:
  3 2 3 5
  3 2 5 3
  3 3 2 5
  3 3 5 2
  3 5 2 3
  3 5 3 2
  5 2 3 3
  5 3 2 3
  5 3 3 2

Antti Karttunen, Table of n, a(n) for n = 1..20000

Number of times n appears in A325390.

Cf. A008480, A056239, A112798, A325327, A325362, A325364, A325367, A325403 (even bisection), A325407, A325460, A325461.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Permutations[primeMS[n]],#=={}||First[#]>1&]],{n,100}]

A008480(n) = {my(sig=factor(n)[, 2]); vecsum(sig)!/factorback(apply(k->k!, sig))}; \\ From code in A008480
A325392(n) = if(n%2, A008480(n), A008480(n)-A008480(n/2)); \\ Antti Karttunen, Dec 06 2021

If n is odd, a(n) = A008480(n). If n is even, a(n) = A008480(n) - A008480(n/2).

Data section extended up to 105 terms by Antti Karttunen, Dec 06 2021

A325403 Number of permutations of the multiset of prime factors of 2n whose first part is not 2.

Original entry on oeis.org

0, 0, 1, 0, 1, 1, 1, 0, 2, 1, 1, 1, 1, 1, 4, 0, 1, 3, 1, 1, 4, 1, 1, 1, 2, 1, 3, 1, 1, 6, 1, 0, 4, 1, 4, 4, 1, 1, 4, 1, 1, 6, 1, 1, 9, 1, 1, 1, 2, 3, 4, 1, 1, 6, 4, 1, 4, 1, 1, 8, 1, 1, 9, 0, 4, 6, 1, 1, 4, 6, 1, 5, 1, 1, 9, 1, 4, 6, 1, 1, 4, 1, 1, 8, 4, 1, 4, 1, 1, 18, 4, 1, 4, 1, 4, 1, 1, 3, 9, 4, 1, 6, 1, 1, 18

Offset: 1

Gus Wiseman, May 02 2019

nonn

			The a(60) = 8 permutations of {2,2,2,3,5} whose first part is not 2:
  3 2 2 2 5
  3 2 2 5 2
  3 2 5 2 2
  3 5 2 2 2
  5 2 2 2 3
  5 2 2 3 2
  5 2 3 2 2
  5 3 2 2 2

Antti Karttunen, Table of n, a(n) for n = 1..20000

Cf. A008480, A056239, A112798, A325327, A325362, A325364, A325367, A325390, A325392, A325407.

Table[Length[Select[Permutations[Flatten[Table@@@FactorInteger[2*n]]],First[#]!=2&]],{n,100}]

A008480(n) = {my(sig=factor(n)[, 2]); vecsum(sig)!/factorback(apply(k->k!, sig))}; \\ After code in A008480
A325403(n) = (A008480(n+n)-A008480(n)); \\ Antti Karttunen, Dec 06 2021

a(n) = A008480(2n) - A008480(n) = A325392(2n).

Data section extended up to 105 terms by Antti Karttunen, Dec 06 2021

A384008 Irregular triangle read by rows where row n lists the first differences of the 0-prepended prime indices of the n-th squarefree number.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 23 2025

All rows are different.

			The 28-th squarefree number is 42, with 0-prepended prime indices (0,1,2,4), with differences (1,1,2), so row 28 is (1,1,2).
The squarefree numbers and corresponding rows begin:
    1: ()        23: (9)        47: (15)
    2: (1)       26: (1,5)      51: (2,5)
    3: (2)       29: (10)       53: (16)
    5: (3)       30: (1,1,1)    55: (3,2)
    6: (1,1)     31: (11)       57: (2,6)
    7: (4)       33: (2,3)      58: (1,9)
   10: (1,2)     34: (1,6)      59: (17)
   11: (5)       35: (3,1)      61: (18)
   13: (6)       37: (12)       62: (1,10)
   14: (1,3)     38: (1,7)      65: (3,3)
   15: (2,1)     39: (2,4)      66: (1,1,3)
   17: (7)       41: (13)       67: (19)
   19: (8)       42: (1,1,2)    69: (2,7)
   21: (2,2)     43: (14)       70: (1,2,1)
   22: (1,4)     46: (1,8)      71: (20)

Row-lengths are A072047, sums A243290.
This is the restriction of A383534 (ranked by A383535) to rows of squarefree index.
A000040 lists the primes, differences A001223.
A048767 is the Look-and-Say transform, union A351294, complement A351295.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A320348 counts strict partitions with distinct 0-appended differences, ranks A325388.
A325324 counts partitions with distinct 0-appended differences, ranks A325367.
Cf. A001221, A005117, A055396, A061395, A325325, A355536, A358137, A384009.

sql=Select[Range[100],SquareFreeQ];
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Differences[Prepend[prix[sql[[n]]],0]],{n,Length[sql]}]

A325363 Heinz numbers of integer partitions into nonzero triangular numbers A000217.

Original entry on oeis.org

1, 2, 4, 5, 8, 10, 13, 16, 20, 25, 26, 29, 32, 40, 47, 50, 52, 58, 64, 65, 73, 80, 94, 100, 104, 107, 116, 125, 128, 130, 145, 146, 151, 160, 169, 188, 197, 200, 208, 214, 232, 235, 250, 256, 257, 260, 290, 292, 302, 317, 320, 325, 338, 365, 376, 377, 394, 397

Offset: 1

Gus Wiseman, May 02 2019

nonn

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

The enumeration of these partitions by sum is given by A007294.

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    4: {1,1}
    5: {3}
    8: {1,1,1}
   10: {1,3}
   13: {6}
   16: {1,1,1,1}
   20: {1,1,3}
   25: {3,3}
   26: {1,6}
   29: {10}
   32: {1,1,1,1,1}
   40: {1,1,1,3}
   47: {15}
   50: {1,3,3}
   52: {1,1,6}
   58: {1,10}
   64: {1,1,1,1,1,1}
   65: {3,6}

Cf. A000217, A007294, A056239, A112798, A240026, A325327, A325360, A325362, A325367, A325390, A325394, A325400.

nn=1000;
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
trgs=Table[n*(n+1)/2,{n,Sqrt[2*PrimePi[nn]]}];
Select[Range[nn],SubsetQ[trgs,primeMS[#]]&]

cp's OEIS Frontend

A325467 Heinz numbers of integer partitions y such that the k-th differences of y are distinct (independently) for all k >= 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A383507 Number of Wilf and conjugate Wilf integer partitions of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A383712 Heinz numbers of integer partitions with distinct multiplicities (Wilf) and distinct 0-appended differences.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A383535 Heinz number of the positive first differences of the 0-prepended prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A325392 Number of permutations of the multiset of prime factors of n whose first part is not 2.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A325403 Number of permutations of the multiset of prime factors of 2n whose first part is not 2.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A384008 Irregular triangle read by rows where row n lists the first differences of the 0-prepended prime indices of the n-th squarefree number.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325363 Heinz numbers of integer partitions into nonzero triangular numbers A000217.

Views

Author

Keywords