A325366 -id:A325366 - cp's OEIS frontend

A325405 Heinz numbers of integer partitions y such that the k-th differences of y are distinct for all k >= 0 and are disjoint from the i-th differences for i != k.

1, 2, 3, 5, 7, 10, 11, 13, 14, 15, 17, 19, 22, 23, 26, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 67, 69, 71, 73, 74, 77, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 103, 106, 107, 109, 111, 113, 115, 118, 119, 122

Offset: 1

Gus Wiseman, May 02 2019

nonn

First differs from A325388 in lacking 130.
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 A325404.

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    3: {2}
    5: {3}
    7: {4}
   10: {1,3}
   11: {5}
   13: {6}
   14: {1,4}
   15: {2,3}
   17: {7}
   19: {8}
   22: {1,5}
   23: {9}
   26: {1,6}
   29: {10}
   31: {11}
   33: {2,5}
   34: {1,7}
   35: {3,4}

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

A subsequence of A005117.

Cf. A056239, A112798, A279945, A325325, A325366, A325367, A325368, A325397, A325398, A325399, A325400, A325404, A325406, A325467.

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

A307824 Heinz numbers of integer partitions whose augmented differences are all equal.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 11, 13, 15, 16, 17, 19, 23, 29, 31, 32, 37, 41, 43, 47, 53, 55, 59, 61, 64, 67, 71, 73, 79, 83, 89, 97, 101, 103, 105, 107, 109, 113, 119, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227

Offset: 1

Gus Wiseman, May 03 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
The enumeration of these partitions by sum is given by A129654.

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
   11: {5}
   13: {6}
   15: {2,3}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   23: {9}
   29: {10}
   31: {11}
   32: {1,1,1,1,1}
   37: {12}
   41: {13}
   43: {14}

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

Cf. A049988, A056239, A093641, A112798, A129654, A325327, A325328, A325351, A325359, A325366, A325389, A325394, A325395, A325396.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
aug[y_]:=Table[If[i

A325389 Heinz numbers of integer partitions whose augmented differences are weakly decreasing.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 26, 28, 29, 30, 31, 32, 33, 34, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 64, 65, 66, 67, 68, 69, 71, 73, 74, 76, 78, 79, 80, 82, 83

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 augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
The enumeration of these partitions by sum is given by A325350.

			The sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   6: {1,2}
   7: {4}
   8: {1,1,1}
  10: {1,3}
  11: {5}
  12: {1,1,2}
  13: {6}
  14: {1,4}
  15: {2,3}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  20: {1,1,3}
  21: {2,4}
  22: {1,5}

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

Cf. A056239, A093641, A112798, A320466, A320509, A325350, A325351, A325361, A325364, A325366, A325394, A325395, A325396, A325397.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
aug[y_]:=Table[If[i

A325395 Heinz numbers of integer partitions whose augmented differences are strictly increasing.

Original entry on oeis.org

1, 2, 3, 5, 7, 9, 11, 13, 17, 19, 23, 25, 29, 31, 35, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 77, 79, 83, 89, 91, 97, 101, 103, 107, 109, 113, 121, 127, 131, 137, 139, 143, 149, 151, 157, 163, 167, 169, 173, 179, 181, 187, 191, 193, 197, 199, 209, 211, 221

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 augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
The enumeration of these partitions by sum is given by A325357.

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    3: {2}
    5: {3}
    7: {4}
    9: {2,2}
   11: {5}
   13: {6}
   17: {7}
   19: {8}
   23: {9}
   25: {3,3}
   29: {10}
   31: {11}
   35: {3,4}
   37: {12}
   41: {13}
   43: {14}
   47: {15}
   49: {4,4}

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

Cf. A056239, A093641, A112798, A240027, A325351, A325357, A325366, A325389, A325394, A325396, A325398, A325456, A325460.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
aug[y_]:=Table[If[i

A325396 Heinz numbers of integer partitions whose augmented differences are strictly decreasing.

Original entry on oeis.org

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

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 augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
The enumeration of these partitions by sum is given by A325358.

			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}
   17: {7}
   19: {8}
   21: {2,4}
   22: {1,5}
   23: {9}
   26: {1,6}
   29: {10}
   31: {11}
   33: {2,5}
   34: {1,7}

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

A subsequence of A005117.

Cf. A056239, A093641, A112798, A320466, A325351, A325358, A325366, A325389, A325393, A325394, A325395, A325457.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
aug[y_]:=Table[If[i

A383531 Heinz numbers of integer partitions that do not have distinct multiplicities (Wilf) or distinct nonzero 0-appended differences (conjugate Wilf).

Original entry on oeis.org

6, 21, 30, 36, 42, 60, 65, 66, 70, 78, 84, 90, 102, 105, 110, 114, 120, 126, 132, 133, 138, 140, 150, 154, 156, 165, 168, 174, 180, 186, 198, 204, 210, 216, 220, 222, 228, 231, 234, 238, 240, 246, 252, 258, 264, 270, 273, 276, 280, 282, 286, 294, 300, 306, 308

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.

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 terms together with their prime indices begin:
    6: {1,2}
   21: {2,4}
   30: {1,2,3}
   36: {1,1,2,2}
   42: {1,2,4}
   60: {1,1,2,3}
   65: {3,6}
   66: {1,2,5}
   70: {1,3,4}
   78: {1,2,6}
   84: {1,1,2,4}
   90: {1,2,2,3}
  102: {1,2,7}
  105: {2,3,4}
  110: {1,3,5}
  114: {1,2,8}
  120: {1,1,1,2,3}

These partitions are counted by A383530.
Negating both sides gives A383532, counted by A383507.
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.
A098859 counts Wilf partitions, ranks A130091, conjugate A383512.
A122111 represents conjugation in terms of Heinz numbers.
A325324 counts integer partitions with distinct 0-appended differences, ranks A325367.
A336866 counts non Wilf partitions, ranks A130092, conjugate A383513.
A383709 counts Wilf partitions with distinct 0-appended differences, ranks A383712.
Cf. A001223, A047966, A181819, A238745, A320348, A325325, A325349, A325366, A325368, A325388, A381431, A383506.

prix[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]}]];
Select[Range[100],!UnsameQ@@Length/@Split[prix[#]] && !UnsameQ@@Length/@Split[conj[prix[#]]]&]

Equals A130092 /\ A383513.

A325355 One plus the number of steps applying A325351 (Heinz number of augmented differences of reversed prime indices) to reach a fixed point.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 2, 1, 1, 4, 1, 1, 1, 2, 1, 2, 1, 1, 3, 1, 1, 5, 1, 4, 2, 1, 1, 6, 1, 1, 4, 1, 1, 3, 1, 1, 1, 2, 2, 7, 1, 1, 2, 3, 1, 8, 1, 1, 3, 1, 1, 4, 1, 5, 5, 1, 1, 9, 4, 1, 2, 1, 1, 3, 1, 5, 6, 1, 1, 2, 1, 1, 4, 4, 1, 10, 1, 1, 3, 5, 1, 11, 1, 6, 1, 1, 2, 5, 2, 1, 7, 1, 1, 3

Offset: 1

Gus Wiseman, Apr 23 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
The fixed points of A325351 are the Heinz numbers of hooks A093641.

			Repeatedly applying A325351 starting with 78 gives 78 -> 66 -> 42 -> 30 -> 18 -> 12, and 12 is a fixed point, so a(78) = 6.

Positions of 2's are A325359.

Cf. A056239, A093641, A112798, A130091, A289509, A325351, A325352, A325366, A325389, A325394, A325395, A325396.

primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
aug[y_]:=Table[If[i

augdiffs(n) = { my(diffs=List([]), f=factor(n), prevpi, pi=0, i=#f~); while(i, prevpi=pi; pi = primepi(f[i, 1]); if(prevpi, listput(diffs, 1+(prevpi-pi))); if(f[i, 2]>1, f[i, 2]--, i--)); if(pi, listput(diffs,pi)); Vec(diffs); };
A325351(n) = factorback(apply(prime,augdiffs(n)));
A325355(n) = { my(u=A325351(n)); if(u==n,1,1+A325355(u)); }; \\ Antti Karttunen, Nov 16 2019

More terms from Antti Karttunen, Nov 16 2019

A355531 Minimal augmented difference between adjacent reversed prime indices of n; a(1) = 0.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jul 14 2022

nonn

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 augmented differences aug(q) of a (usually weakly decreasing) sequence q of length k are given by aug(q)i = q_i - q{i+1} + 1 if i < k and aug(q)_k = q_k. For example, we have aug(6,5,5,3,3,3) = (2,1,3,1,1,3).

			The reversed prime indices of 825 are (5,3,3,2), with augmented differences (3,1,2,2), so a(825) = 1.

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

Crossrefs found in the link are not repeated here.
Positions of first appearances are A008578.
Positions of 1's are 2 followed by A013929.
The non-augmented maximal version is A286470, also A355526.
The non-augmented version is A355524, also A355525.
Row minima of A355534, which has Heinz number A325351.
The maximal version is A355535.
A001222 counts prime indices.
A112798 lists prime indices, sum A056239.
Cf. A124010, A129654, A243055, A243056, A307824, A325366, A325394, A355528, A355533, A355536.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
aug[y_]:=Table[If[i

A383520 Heinz numbers of section-sum partitions with distinct multiplicities (Wilf).

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 20, 23, 25, 27, 28, 29, 31, 32, 37, 40, 41, 43, 44, 45, 47, 49, 50, 52, 53, 56, 59, 61, 64, 67, 68, 71, 73, 75, 76, 79, 80, 81, 83, 88, 89, 92, 97, 98, 99, 101, 103, 104, 107, 109, 112, 113, 116, 117, 121, 124, 125

Offset: 1

Gus Wiseman, May 19 2025

nonn

First differs from A383515 in having 325.
First differs from A383532 in having 325.
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.
An integer partition is Wilf iff its multiplicities are all different, ranked by A130091.
An integer partition is section-sum iff it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432.

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   11: {5}
   13: {6}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   20: {1,1,3}
   23: {9}
   25: {3,3}
   27: {2,2,2}
   28: {1,1,4}
   29: {10}
   31: {11}
   32: {1,1,1,1,1}

Ranking sequences are shown in parentheses below.
For non Wilf instead of Wilf we have (A383514), counted by A383506.
These partitions are counted by A383519.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A098859 counts Wilf partitions (A130091), conjugate (A383512).
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts section-sum partitions (A381432), complement A351293 (A381433).
A336866 counts non Wilf partitions (A130092), conjugate (A383513).
A351592 counts non Wilf Look-and-Say partitions, ranked by (A384006).
A381431 is the section-sum transform.
Cf. A000720, A001223, A048767, A051903, A212166, A320348, A325366, A325368.

disjointFamilies[y_]:=Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&];
prix[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]}]];
Select[Range[100],disjointFamilies[conj[prix[#]]]!={}&&UnsameQ@@Last/@FactorInteger[#]&]

A325359 Numbers of the form p^y * 2^z where p is an odd prime, y >= 2, and z >= 0.

Original entry on oeis.org

9, 18, 25, 27, 36, 49, 50, 54, 72, 81, 98, 100, 108, 121, 125, 144, 162, 169, 196, 200, 216, 242, 243, 250, 288, 289, 324, 338, 343, 361, 392, 400, 432, 484, 486, 500, 529, 576, 578, 625, 648, 676, 686, 722, 729, 784, 800, 841, 864, 961, 968, 972, 1000, 1058

Offset: 1

Gus Wiseman, May 02 2019

nonn

Also Heinz numbers of integer partitions that are not hooks but whose augmented differences are hooks, where the Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k), and a hook is a partition of the form (n,1,1,...,1). The enumeration of these partitions by sum is given by A325459.

			The sequence of terms together with their prime indices begins:
     9: {2,2}
    18: {1,2,2}
    25: {3,3}
    27: {2,2,2}
    36: {1,1,2,2}
    49: {4,4}
    50: {1,3,3}
    54: {1,2,2,2}
    72: {1,1,1,2,2}
    81: {2,2,2,2}
    98: {1,4,4}
   100: {1,1,3,3}
   108: {1,1,2,2,2}
   121: {5,5}
   125: {3,3,3}
   144: {1,1,1,1,2,2}
   162: {1,2,2,2,2}
   169: {6,6}
   196: {1,1,4,4}
   200: {1,1,1,3,3}

Robert Israel, Table of n, a(n) for n = 1..10000

Positions of 2's in A325355.
Numbers n such that n does not belong to A093641 but A325351(n) does.
Cf. A056239, A112798, A136141, A325366, A325389, A325394, A325395, A325396.

N:= 1000: # to get terms <= N
P:= select(isprime, [seq(i,i=3..floor(sqrt(N)),2)]):
B:= map(proc(p) local y;  seq(p^y, y=2..floor(log[p](N))) end proc, P):
sort(map(proc(t) local z;  seq(2^z*t, z=0..ilog2(N/t)) end proc, B)); # Robert Israel, May 03 2019

Select[Range[1000],MatchQ[FactorInteger[2*#],{{2,},{?(#>2&),_?(#>1&)}}]&]

Sum_{n>=1} 1/a(n) = 2 * Sum_{p prime} 1/(p*(p-1)) - 1 = 2 * A136141 - 1 = 0.54631333809959025572... - Amiram Eldar, Sep 30 2020

cp's OEIS Frontend

A325405 Heinz numbers of integer partitions y such that the k-th differences of y are distinct for all k >= 0 and are disjoint from the i-th differences for i != k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A307824 Heinz numbers of integer partitions whose augmented differences are all equal.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325389 Heinz numbers of integer partitions whose augmented differences are weakly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325395 Heinz numbers of integer partitions whose augmented differences are strictly increasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A325396 Heinz numbers of integer partitions whose augmented differences are strictly decreasing.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A383531 Heinz numbers of integer partitions that do not have distinct multiplicities (Wilf) or distinct nonzero 0-appended differences (conjugate Wilf).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A325355 One plus the number of steps applying A325351 (Heinz number of augmented differences of reversed prime indices) to reach a fixed point.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A355531 Minimal augmented difference between adjacent reversed prime indices of n; a(1) = 0.

Views

Author

Keywords

Comments

Examples

Links