A299702 -id:A299702 - cp's OEIS frontend

A353865 Number of complete rucksack partitions of n. Partitions whose weak run-sums are distinct and cover an initial interval of nonnegative integers.

1, 1, 1, 2, 1, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 5, 2, 3, 4, 3, 2, 4, 3, 3, 4, 4, 3, 4, 3, 4, 5, 5, 4, 6, 4, 6, 5, 4, 5, 6, 5, 6, 7, 6, 5, 9, 6, 6, 7, 6, 8, 9, 6, 6, 8, 9, 7, 9, 9, 7, 10, 9, 8, 13, 7, 10, 11, 8, 9, 10, 11, 12, 9, 11, 9, 15, 12, 12, 19, 13, 16, 16

Offset: 0

Gus Wiseman, Jun 04 2022

nonn

Every sequence can be uniquely split into a sequence of non-overlapping runs. For example, the runs of (2,2,1,1,1,3,2,2) are ((2,2),(1,1,1),(3),(2,2)), with sums (4,3,3,4). A weak run-sum is the sum of any consecutive constant subsequence.

Do all positive integers appear only finitely many times in this sequence?

			The a(n) compositions for n = 1, 3, 9, 15, 18:
  (1)  (21)   (4311)       (54321)            (543321)
       (111)  (51111)      (532221)           (654111)
              (111111111)  (651111)           (7611111)
                           (81111111)         (111111111111111111)
                           (111111111111111)
For example, the weak runs of y = {7,5,4,4,3,3,3,1,1} are {}, {1}, {1,1}, {3}, {4}, {5}, {3,3}, {7}, {4,4}, {3,3,3}, with sums 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, which are all distinct and cover an initial interval, so y is counted under a(31).

Perfect partitions are counted by A002033, ranked by A325780.
Knapsack partitions are counted by A108917, ranked by A299702.
This is the complete case of A353864, ranked by A353866.
These partitions are ranked by A353867.
A000041 counts partitions, strict A000009.
A275870 counts collapsible partitions, ranked by A300273.
A304442 counts partitions with all equal run-sums, ranked by A353833.
A353832 represents the operation of taking run-sums of a partition.
A353836 counts partitions by number of distinct run-sums.
A353837 counts partitions with distinct run-sums, ranked by A353838.
A353840-A353846 pertain to partition run-sum trajectory.
A353850 counts compositions with all distinct run-sums, ranked by A353852.
A353863 counts partitions whose weak run-sums cover an initial interval.
Cf. A008284, A018818, A225485, A325239, A325862, A353834, A353839.

norqQ[m_]:=Sort[m]==Range[0,Max[m]];
msubs[s_]:=Join@@@Tuples[Table[Take[t,i],{t,Split[s]},{i,0,Length[t]}]];
Table[Length[Select[IntegerPartitions[n],norqQ[Total/@Select[msubs[#],SameQ@@#&]]&]],{n,0,15}]

a(n) = my(c=0, s, v); if(n, forpart(p=n, if(p[1]==1, v=List([s=1]); for(i=2, #p, if(p[i]==p[i-1], listput(v, s+=p[i]), listput(v, s=p[i]))); s=#v; listsort(v, 1); if(s==#v&&s==v[s], c++))); c, 1); \\ Jinyuan Wang, Feb 21 2025

More terms from Jinyuan Wang, Feb 21 2025

A325799 Sum of the prime indices of n minus the number of distinct positive subset-sums of the prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 23 2019

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, with sum A056239(n). A positive subset-sum of an integer partition is any sum of a nonempty submultiset of it.

			The prime indices of 21 are {2,4}, with positive subset-sums {2,4,6}, so a(21) = 6 - 3 = 3.

Positions of 1's are A325800.
Positions of nonzero terms are A325798.
Cf. A000005, A002033, A056239, A108917, A112798, A276024, A299702, A304793.
Cf. A325694, A325780, A325794, A325801, A325802.

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p] k]];
Table[hwt[n]-Length[Union[hwt/@Rest[Divisors[n]]]],{n,30}]

a(n) = A056239(n) - A304793(n).

A339563 Squarefree numbers > 1 whose smallest prime index divides all the other prime indices.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Apr 10 2021

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.

Also Heinz numbers of strict integer partitions whose smallest part divides all the others (counted by A097986). 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 sequence of terms together with their prime indices begins:
      2: {1}       29: {10}        59: {17}
      3: {2}       30: {1,2,3}     61: {18}
      5: {3}       31: {11}        62: {1,11}
      6: {1,2}     34: {1,7}       65: {3,6}
      7: {4}       37: {12}        66: {1,2,5}
     10: {1,3}     38: {1,8}       67: {19}
     11: {5}       39: {2,6}       70: {1,3,4}
     13: {6}       41: {13}        71: {20}
     14: {1,4}     42: {1,2,4}     73: {21}
     17: {7}       43: {14}        74: {1,12}
     19: {8}       46: {1,9}       78: {1,2,6}
     21: {2,4}     47: {15}        79: {22}
     22: {1,5}     53: {16}        82: {1,13}
     23: {9}       57: {2,8}       83: {23}
     26: {1,6}     58: {1,10}      86: {1,14}

These partitions are counted by A097986 (non-strict: A083710).
The case with no 1's is counted by A098965 (non-strict: A083711).
The squarefree complement is A339562, ranked by A341450.
The complement of the not necessarily squarefree version is A342193.
A000005 counts divisors.
A000070 counts partitions with a selected part.
A001055 counts factorizations.
A001221 counts distinct prime factors.
A005117 lists squarefree numbers.
A006128 counts partitions with a selected position (strict: A015723).
A056239 adds up prime indices, row sums of A112798.
A338470 counts partitions with no dividing part.
Cf. A130714, A253249, A257993, A299702, A339564, A343340, A343378.

Select[Range[2,100],SquareFreeQ[#]&&With[{p=PrimePi/@First/@FactorInteger[#]},And@@IntegerQ/@(p/Min@@p)]&]

A347462 Number of distinct possible reverse-alternating products of integer partitions of n.

Original entry on oeis.org

1, 1, 2, 3, 4, 6, 8, 11, 13, 17, 22, 28, 33, 42, 51, 59, 69, 84, 100, 117, 137, 163, 191, 222, 256, 290, 332, 378, 429, 489, 564, 643, 729, 819, 929, 1040, 1167, 1313, 1473, 1647, 1845, 2045, 2272, 2521, 2785, 3076, 3398, 3744, 4115, 4548, 5010, 5524, 6086

Offset: 0

Gus Wiseman, Oct 06 2021

nonn

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)). The reverse-alternating product is the alternating product of the reversed sequence.

			Partitions representing each of the a(7) = 11 reverse-alternating products:
     (7) -> 7
    (61) -> 1/6
    (52) -> 2/5
   (511) -> 5
    (43) -> 3/4
   (421) -> 2
  (4111) -> 1/4
   (331) -> 1
   (322) -> 3
  (3211) -> 2/3
  (2221) -> 1/2

The version for non-reverse alternating sum instead of product is A004526.
Counting only integers gives A028310, non-reverse A347707.
The version for factorizations is A038548, non-reverse A347460.
The non-reverse version is A347461.
A000041 counts partitions.
A027187 counts partitions of even length.
A027193 counts partitions of odd length.
A103919 counts partitions by sum and alternating sum (reverse: A344612).
A108917 counts knapsack partitions, ranked by A299702.
A122768 counts distinct submultisets of partitions.
A126796 counts complete partitions.
A293627 counts knapsack factorizations by sum.
A301957 counts distinct subset-products of prime indices.
A304792 counts subset-sums of partitions, positive A276024, strict A284640.
A304793 counts distinct positive subset-sums of prime indices.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
Cf. A000070, A001055, A002033, A002219, A028983, A119620, A325768, A345926, A347443, A347444, A347445, A347446.

revaltprod[q_]:=Product[Reverse[q][[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Union[revaltprod/@IntegerPartitions[n]]],{n,0,30}]

A364348 Numbers with two possibly equal divisors prime(a) and prime(b) such that prime(a+b) is also a divisor.

Original entry on oeis.org

6, 12, 18, 21, 24, 30, 36, 42, 48, 54, 60, 63, 65, 66, 70, 72, 78, 84, 90, 96, 102, 105, 108, 114, 120, 126, 130, 132, 133, 138, 140, 144, 147, 150, 154, 156, 162, 165, 168, 174, 180, 186, 189, 192, 195, 198, 204, 210, 216, 222, 228, 231, 234, 240, 246, 252

Offset: 1

Gus Wiseman, Jul 27 2023

nonn

Or numbers with a prime index equal to the sum of two others, allowing re-used parts.

Also Heinz numbers of a type of sum-free partitions counted by A363225.

			We have 6 because prime(1) and prime(1) are both divisors of 6, and prime(1+1) is also.
The terms together with their prime indices begin:
   6: {1,2}
  12: {1,1,2}
  18: {1,2,2}
  21: {2,4}
  24: {1,1,1,2}
  30: {1,2,3}
  36: {1,1,2,2}
  42: {1,2,4}
  48: {1,1,1,1,2}
  54: {1,2,2,2}
  60: {1,1,2,3}
  63: {2,2,4}
  65: {3,6}
  66: {1,2,5}
  70: {1,3,4}
  72: {1,1,1,2,2}

Subsets of this type are counted by A093971, complement A007865.
Partitions of this type are counted by A363225, strict A363226.
The complement is A364347, counted by A364345.
The complement without re-using parts is A364461, counted by A236912.
Without re-using parts we have A364462, counted by A237113.
A001222 counts prime indices.
A108917 counts knapsack partitions, ranks A299702.
A112798 lists prime indices, sum A056239.
A323092 counts double-free partitions, ranks A320340.
Cf. A237667, A275972, A288728, A325862, A326083, A364346.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Intersection[prix[#],Total/@Tuples[prix[#],2]]!={}&]

A371781 Numbers with biquanimous prime signature.

Original entry on oeis.org

1, 6, 10, 14, 15, 21, 22, 26, 33, 34, 35, 36, 38, 39, 46, 51, 55, 57, 58, 60, 62, 65, 69, 74, 77, 82, 84, 85, 86, 87, 90, 91, 93, 94, 95, 100, 106, 111, 115, 118, 119, 122, 123, 126, 129, 132, 133, 134, 140, 141, 142, 143, 145, 146, 150, 155, 156, 158, 159

Offset: 1

Gus Wiseman, Apr 09 2024

nonn

First differs from A320911 in lacking 900.
First differs from A325259 in having 1 and lacking 120.
A finite multiset of numbers is defined to be biquanimous iff it can be partitioned into two multisets with equal sums. Biquanimous partitions are counted by A002219 (aerated) and ranked by A357976.
Also numbers n with a unitary divisor d|n having exactly half as many prime factors as n, counting multiplicity.

			The prime signature of 120 is (3,1,1), which is not biquanimous, so 120 is not in the sequence.

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

A number's prime signature is given by A124010.
For prime indices we have A357976, counted by A002219 aerated.
The complement for prime indices is A371731, counted by A371795, A006827.
The complement is A371782, counted by A371840.
Partitions of this type are counted by A371839.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A237258 aerated counts biquanimous strict partitions, ranks A357854.
A321142 and A371794 count non-biquanimous strict partitions.
A321451 counts non-quanimous partitions, ranks A321453.
A321452 counts quanimous partitions, ranks A321454.
A371783 counts k-quanimous partitions.
A371791 counts biquanimous sets, complement A371792.
Cf. A035470, A064914, A232466, A299702, A336137, A371737, A371796.
Subsequence of A028260.

biquanimous:= proc(L) local s,x,i,P; option remember;
  s:= convert(L,`+`); if s::odd then return false fi;
  P:= mul(1+x^i,i=L);
  coeff(P,x,s/2) > 0
end proc:
select(n -> biquanimous(ifactors(n)[2][..,2]), [$1..200]); # Robert Israel, Apr 22 2024

g[n_]:=Select[Divisors[n],GCD[#,n/#]==1&&PrimeOmega[#]==PrimeOmega[n/#]&];
Select[Range[100],g[#]!={}&]
(* second program: *)
q[n_] := Module[{e = FactorInteger[n][[;; , 2]], sum, x}, sum = Plus @@ e; EvenQ[sum] && CoefficientList[Product[1 + x^i, {i, e}], x][[1 + sum/2]] > 0]; q[1] = True; Select[Range[200], q] (* Amiram Eldar, Jul 24 2024 *)

A364531 Positive integers with no prime index equal to the sum of prime indices of any nonprime divisor.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 64, 65, 66, 67, 68, 69, 71, 73, 74, 75, 76, 77

Offset: 1

Gus Wiseman, Aug 01 2023

nonn

First differs from A299702 (knapsack) in having 525: {2,3,3,4}.
First differs from A325778 in lacking 462: {1,2,4,5}.
These are the Heinz numbers of partitions whose parts are disjoint from their own non-singleton subset-sums.

Partitions of this type are counted by A237667, strict A364349.
The binary version is A364462, complement A364461.
The complement is A364532, counted by A237668.
A000005 counts divisors, nonprime A033273, composite A055212.
A299701 counts distinct subset-sums of prime indices.
A299702 ranks knapsack partitions, counted by A108917, complement A299729.
A363260 counts partitions disjoint from differences, complement A364467.
Cf. A002865, A236912, A237113, A320340, A326083, A363225, A364347.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Intersection[prix[#],Total/@Subsets[prix[#],{2,Length[prix[#]]}]]=={}&]

A364532 Positive integers with a prime index equal to the sum of prime indices of some nonprime divisor. Heinz numbers of a variation of sum-full partitions.

Original entry on oeis.org

12, 24, 30, 36, 40, 48, 60, 63, 70, 72, 80, 84, 90, 96, 108, 112, 120, 126, 132, 140, 144, 150, 154, 156, 160, 165, 168, 180, 189, 192, 198, 200, 204, 210, 216, 220, 224, 228, 240, 252, 264, 270, 273, 276, 280, 286, 288, 300, 308, 312, 315, 320, 324, 325, 330

Offset: 1

Gus Wiseman, Aug 01 2023

nonn

First differs from A299729 (non-knapsack) in lacking 525: {2,3,3,4}.
First differs from A325777 in having 462: {1,2,4,5} and lacking 675:{2,2,2,3,3}.
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.
These are the Heinz numbers of partitions containing the sum of some non-singleton submultiset.

			The terms together with their prime indices begin:
  12: {1,1,2}
  24: {1,1,1,2}
  30: {1,2,3}
  36: {1,1,2,2}
  40: {1,1,1,3}
  48: {1,1,1,1,2}
  60: {1,1,2,3}
  63: {2,2,4}
  70: {1,3,4}
  72: {1,1,1,2,2}
  80: {1,1,1,1,3}
  84: {1,1,2,4}
  90: {1,2,2,3}
  96: {1,1,1,1,1,2}

Partitions not of this type are counted by A237667, strict A364349.
Partitions of this type are counted by A237668, strict A364272.
The binary complement is A364461, re-usable A364347 (counted by A364345).
The binary version is A364462, re-usable A364348 (counted by A363225).
The complement is A364531.
Subsets of this type are counted by A364534, complement A151897.
A000005 counts divisors, nonprime A033273, composite A055212.
A001222 counts prime indices.
A108917 counts knapsack partitions, strict A275972, for subsets A325864.
A112798 lists prime indices, sum A056239.
A299701 counts distinct subset-sums of prime indices.
A299702 ranks knapsack partitions, complement A299729.
Cf. A085489, A088809, A093971, A236912, A237113, A301900, A326083, A364350.

Select[Range[100],Intersection[prix[#],Total/@Subsets[prix[#],{2,Length[prix[#]]}]]!={}&]

A316402 Number of strict non-knapsack integer partitions of n, meaning not every subset has a different sum.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 0, 1, 0, 3, 1, 4, 3, 8, 6, 12, 10, 20, 16, 29, 25, 44, 39, 61, 60, 91, 84, 125, 126, 180, 179, 242, 247, 336, 347, 444, 472, 606, 628, 796, 844, 1053, 1109, 1363, 1452, 1779, 1885, 2272, 2431, 2931, 3104, 3706, 3972, 4711, 5042, 5909, 6334

Offset: 1

Gus Wiseman, Jul 01 2018

nonn

			The a(12) = 4 partitions are (6,4,2), (6,5,1), (5,4,2,1), (6,3,2,1).

Cf. A000009, A108917, A275972, A299702, A301899, A301900, A316271, A316314, A316399, A316400.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&!UnsameQ@@Total/@Union[Subsets[#]]&]],{n,30}]

a(n) = A000009(n) - A275972(n).

A325798 Numbers with at most as many divisors as the sum of their prime indices.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, May 23 2019

nonn

First differs from the complement of A325781 in lacking 156.

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, with sum A056239(n).

			The sequence of terms together with their prime indices begins:
   3: {2}
   5: {3}
   7: {4}
   9: {2,2}
  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}
  25: {3,3}
  26: {1,6}
  27: {2,2,2}
  28: {1,1,4}
  29: {10}
  31: {11}

Positions of nonpositive terms in A325794.
Heinz numbers of the partitions counted by A325834.
Cf. A000005, A002033, A056239, A112798, A299702.
Cf. A325694, A325780, A325781, A325792, A325793, A325795, A325796, A325797.

Select[Range[100],DivisorSigma[0,#]<=Total[Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]*k]]&]

cp's OEIS Frontend

A353865 Number of complete rucksack partitions of n. Partitions whose weak run-sums are distinct and cover an initial interval of nonnegative integers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A325799 Sum of the prime indices of n minus the number of distinct positive subset-sums of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A339563 Squarefree numbers > 1 whose smallest prime index divides all the other prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A347462 Number of distinct possible reverse-alternating products of integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A364348 Numbers with two possibly equal divisors prime(a) and prime(b) such that prime(a+b) is also a divisor.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A371781 Numbers with biquanimous prime signature.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A364531 Positive integers with no prime index equal to the sum of prime indices of any nonprime divisor.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A364532 Positive integers with a prime index equal to the sum of prime indices of some nonprime divisor. Heinz numbers of a variation of sum-full partitions.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A316402 Number of strict non-knapsack integer partitions of n, meaning not every subset has a different sum.

Views

Author