A364347 -id:A364347 - cp's OEIS frontend

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

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[#]]}]]!={}&]

A364463 Number of subsets of {1..n} with elements disjoint from first differences of elements.

Original entry on oeis.org

1, 2, 3, 6, 10, 18, 30, 54, 92, 167, 290, 525, 935, 1704, 3082, 5664, 10386, 19249, 35701, 66702, 124855, 234969, 443174, 839254, 1592925, 3032757, 5786153, 11066413, 21204855, 40712426, 78294085, 150815154, 290922900, 561968268, 1086879052, 2104570243

Offset: 0

Gus Wiseman, Jul 27 2023

nonn

In other words, no element is the difference of two consecutive elements.
From David A. Corneth, Aug 02 2023: (Start)
As subsets counted in a(n) are also counted in a(n+1) and {n+1} is a subset counted in a(n+1) but not a(n), a(n + 1) > a(n) for n >= 1.
As every subset counted in a(n + 1) that contains n+1 can be found from some subset counted in a(n) by appending n+1 and every subset counted in a(n) not containing n + 1 is counted in a(n + 1), a(n+1) <= 2*a(n). (End)

			The a(0) = 1 through a(5) = 18 subsets:
  {}  {}   {}   {}     {}       {}
      {1}  {1}  {1}    {1}      {1}
           {2}  {2}    {2}      {2}
                {3}    {3}      {3}
                {1,3}  {4}      {4}
                {2,3}  {1,3}    {5}
                       {1,4}    {1,3}
                       {2,3}    {1,4}
                       {3,4}    {1,5}
                       {2,3,4}  {2,3}
                                {2,5}
                                {3,4}
                                {3,5}
                                {4,5}
                                {1,3,5}
                                {2,3,4}
                                {3,4,5}
                                {2,3,4,5}

For all differences of pairs of elements we have A007865.
For partitions instead of subsets we have A363260, strict A364464.
The complement is counted by A364466.
A000041 counts integer partitions, strict A000009.
A364465 counts subsets with distinct first differences, partitions A325325.
Cf. A011782, A025065, A229816, A236912, A237113, A237667, A240861, A320347, A323092, A326083, A364347.

Table[Length[Select[Subsets[Range[n]],Intersection[#,Differences[#]]=={}&]],{n,0,10}]

from itertools import combinations
def A364463(n): return sum(1 for l in range(n+1) for c in combinations(range(1,n+1),l) if set(c).isdisjoint({c[i+1]-c[i] for i in range(l-1)})) # Chai Wah Wu, Sep 26 2023

a(n) < a(n + 1) <= 2 * a(n). - David A. Corneth, Aug 02 2023

a(21)-a(29) from David A. Corneth, Aug 02 2023
a(30)-a(32) from Chai Wah Wu, Sep 26 2023
a(33)-a(35) from Chai Wah Wu, Sep 27 2023

A364536 Number of strict integer partitions of n where some part is a difference of two consecutive parts.

Original entry on oeis.org

0, 0, 0, 1, 0, 0, 2, 1, 2, 2, 5, 4, 6, 6, 9, 11, 16, 17, 23, 25, 30, 38, 48, 55, 65, 78, 92, 106, 127, 146, 176, 205, 230, 277, 315, 366, 421, 483, 552, 640, 727, 829, 950, 1083, 1218, 1408, 1577, 1794, 2017, 2298, 2561, 2919, 3255, 3685, 4116, 4638, 5163

Offset: 0

Gus Wiseman, Jul 31 2023

nonn

In other words, strict partitions with parts not disjoint from first differences.

			The a(3) = 1 through a(15) = 11 partitions (A = 10, B = 11, C = 12):
  21  .  .  42   421  431  63   532   542   84    742   743   A5
            321       521  621  541   632   642   841   752   843
                                631   821   651   A21   761   942
                                721   5321  921   5431  842   C21
                                4321        5421  6421  B21   6432
                                            6321  7321  6431  6531
                                                        6521  7431
                                                        7421  7521
                                                        8321  8421
                                                              9321
                                                              54321

For all differences of pairs we have A363226, non-strict A363225.
For all non-differences of pairs we have A364346, strict A364345.
The strict complement is counted by A364464, non-strict A363260.
For subsets of {1..n} we have A364466, complement A364463.
The non-strict case is A364467, ranks A364537.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A323092 counts double-free partitions, strict A120641.
A325325 counts partitions with distinct first-differences, strict A320347.
Cf. A002865, A025065, A093971, A108917, A229816, A236912, A237113, A237667, A326083, A364347.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Intersection[#,-Differences[#]]!={}&]],{n,0,30}]

from collections import Counter
from sympy.utilities.iterables import partitions
def A364536(n): return sum(1 for s,p in map(lambda x: (x[0],tuple(sorted(Counter(x[1]).elements()))), filter(lambda p:max(p[1].values(),default=1)==1,partitions(n,size=True))) if not set(p).isdisjoint({p[i+1]-p[i] for i in range(s-1)})) # Chai Wah Wu, Sep 26 2023

A364537 Heinz numbers of integer partitions where some part is the difference of two consecutive parts.

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, 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, 258

Offset: 1

Gus Wiseman, Aug 02 2023

nonn

In other words, partitions whose parts are not disjoint from their first differences.

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.

			The partition {3,4,5,7} with Heinz number 6545 has first differences (1,1,2) so is not in the sequence.
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}
  78: {1,2,6}
  84: {1,1,2,4}
  90: {1,2,2,3}
  96: {1,1,1,1,1,2}

For all differences of pairs the complement is A364347, counted by A364345.
For all differences of pairs we have A364348, counted by A363225.
Subsets of {1..n} of this type are counted by A364466, complement A364463.
These partitions are counted by A364467, complement A363260.
The strict case is A364536, complement A364464.
A050291 counts double-free subsets, complement A088808.
A323092 counts double-free partitions, ranks A320340.
A325325 counts partitions with distinct first differences.
Cf. A002865, A025065, A093971, A108917, A196723, A229816, A236912, A237113, A237667, A320347, A326083.

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

cp's OEIS Frontend

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

A364463 Number of subsets of {1..n} with elements disjoint from first differences of elements.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

Formula

Extensions

A364536 Number of strict integer partitions of n where some part is a difference of two consecutive parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

A364537 Heinz numbers of integer partitions where some part is the difference of two consecutive parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica