A074971 -id:A074971 - cp's OEIS frontend

A324751 Number of strict integer partitions of n containing no prime indices of the parts.

1, 1, 1, 1, 2, 1, 3, 3, 2, 4, 5, 5, 6, 8, 8, 12, 10, 14, 13, 18, 19, 26, 25, 30, 34, 39, 40, 51, 55, 60, 71, 77, 90, 97, 111, 123, 136, 153, 170, 179, 216, 230, 264, 282, 322, 345, 385, 423, 470, 513, 573, 629, 686, 755, 834, 910, 1005, 1095, 1194, 1303, 1433

Offset: 0

Gus Wiseman, Mar 16 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.

			The a(1) = 1 through a(13) = 8 strict integer partitions (A...D = 10...13):
  1   2   3   4    5   6    7    8    9    A    B     C     D
              31       42   43   71   54   64   65    75    76
                       51   52        63   73   83    84    85
                                      72   82   542   93    94
                                           91   731   A2    B2
                                                      B1    643
                                                            751
                                                            931

The subset version is A324741, with maximal case A324743. The non-strict version is A324756. The Heinz number version is A324758. An infinite version is A304360.
Cf. A000720, A001462, A007097, A074971, A078374, A112798, A276625, A290822, A305713, A306844, A324764.
Cf. A324695, A324742, A324748.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Intersection[#,PrimePi/@First/@Join@@FactorInteger/@#]=={}&]],{n,0,30}]

A333226 Least common multiple of the n-th composition in standard order.

Original entry on oeis.org

1, 2, 1, 3, 2, 2, 1, 4, 3, 2, 2, 3, 2, 2, 1, 5, 4, 6, 3, 6, 2, 2, 2, 4, 3, 2, 2, 3, 2, 2, 1, 6, 5, 4, 4, 3, 6, 6, 3, 4, 6, 2, 2, 6, 2, 2, 2, 5, 4, 6, 3, 6, 2, 2, 2, 4, 3, 2, 2, 3, 2, 2, 1, 7, 6, 10, 5, 12, 4, 4, 4, 12, 3, 6, 6, 3, 6, 6, 3, 10, 4, 6, 6, 6, 2, 2

Offset: 1

Gus Wiseman, Mar 26 2020

nonn

The k-th composition in standard order (row k of A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again.

The version for binary indices is A271410.
The version for prime indices is A290103.
Positions of first appearances are A333225.
Let q(k) be the k-th composition in standard order:
- The terms of q(k) are row k of A066099.
- The sum of q(k) is A070939(k).
- The product of q(k) is A124758(k).
- The GCD of q(k) is A326674(k).
- The LCM of q(k) is A333226(k).
Cf. A000120, A029931, A048793, A074971, A076078, A233564, A285572, A289508, A289509, A324837, A333227, A333492.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Table[LCM@@stc[n],{n,100}]

A324748 Number of strict integer partitions of n containing all prime indices of the parts.

Original entry on oeis.org

1, 1, 0, 1, 0, 1, 1, 1, 0, 2, 1, 2, 3, 2, 2, 4, 3, 4, 3, 5, 6, 9, 8, 7, 8, 11, 12, 13, 15, 17, 22, 22, 20, 28, 31, 32, 36, 41, 43, 53, 53, 59, 70, 76, 77, 89, 99, 108, 124, 135, 139, 160, 172, 188, 209, 229, 243, 274, 298, 315, 353, 391, 417, 457, 496, 538, 588

Offset: 0

Gus Wiseman, Mar 15 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.

			The first 15 terms count the following integer partitions.
   1: (1)
   3: (2,1)
   5: (4,1)
   6: (3,2,1)
   7: (4,2,1)
   9: (8,1)
   9: (6,2,1)
  10: (4,3,2,1)
  11: (8,2,1)
  11: (5,3,2,1)
  12: (9,2,1)
  12: (7,4,1)
  12: (6,3,2,1)
  13: (8,4,1)
  13: (6,4,2,1)
  14: (8,3,2,1)
  14: (7,4,2,1)
  15: (12,2,1)
  15: (9,3,2,1)
  15: (8,4,2,1)
  15: (5,4,3,2,1)
An example for n = 6 is (20,18,11,5,3,2,1), with prime indices:
  20: {1,1,3}
  18: {1,2,2}
  11: {5}
   5: {3}
   3: {2}
   2: {1}
   1: {}
All of these prime indices {1,2,3,5} belong to the partition, as required.

The subset version is A324736. The non-strict version is A324753. The Heinz number version is A290822. An infinite version is A324698.
Cf. A000720, A001462, A007097, A074971, A078374, A112798, A276625, A279861, A290689, A290760, A305713.
Cf. A324697, A324737, A324751.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&SubsetQ[#,PrimePi/@First/@Join@@FactorInteger/@DeleteCases[#,1]]&]],{n,0,30}]

A324750 Number of strict integer partitions of n not containing 1 or any part whose prime indices all belong to the partition.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 2, 3, 2, 4, 4, 4, 6, 8, 8, 11, 10, 15, 16, 19, 23, 27, 28, 35, 39, 47, 50, 63, 68, 77, 91, 102, 114, 130, 147, 169, 187, 213, 237, 268, 300, 336, 380, 422, 472, 525, 587, 647, 731, 810, 895, 996, 1102, 1227, 1355, 1498, 1661, 1818, 2020, 2221

Offset: 0

Gus Wiseman, Mar 15 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.

			The a(2) = 1 through a(17) = 15 strict integer partitions (A...H = 10...17):
  2  3  4  5  6   7   8   9   A   B    C    D    E    F    G    H
              42  43  62  54  64  65   75   76   86   87   97   98
                  52      63  73  83   84   85   95   96   A6   A7
                          72  82  542  93   94   A4   A5   C4   B6
                                       A2   A3   B3   B4   D3   C5
                                       642  B2   C2   C3   E2   D4
                                            643  752  D2   763  E3
                                            652  842  654  862  F2
                                                      762  943  854
                                                      843  A42  863
                                                      852       872
                                                                A43
                                                                A52
                                                                B42
                                                                6542

The subset version is A324739. The non-strict version is A324755. The Heinz number version is A324760. An infinite version is A324694.
Cf. A000720, A001462, A007097, A074971, A078374, A112798, A276625, A290822, A304360, A305713, A306844.
Cf. A324696, A324737, A324742, A324744, A324764.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&!MemberQ[#,1]&&!MemberQ[#,k_/;SubsetQ[#,PrimePi/@First/@FactorInteger[k]]]&]],{n,0,30}]

A324837 Number of minimal subsets of {1...n} with least common multiple n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 3, 1, 2, 2, 1, 1, 3, 1, 3, 2, 2, 1, 4, 1, 2, 1, 3, 1, 8, 1, 1, 2, 2, 2, 5, 1, 2, 2, 4, 1, 8, 1, 3, 3, 2, 1, 5, 1, 3, 2, 3, 1, 4, 2, 4, 2, 2, 1, 16, 1, 2, 3, 1, 2, 8, 1, 3, 2, 8, 1, 7, 1, 2, 3, 3, 2, 8, 1, 5, 1, 2, 1, 16, 2, 2

Offset: 1

Gus Wiseman, Mar 19 2019

nonn

Note that the elements must be pairwise indivisible divisors of n.

Differs from A303838 at positions {1, 180, 210, ...}. For example, a(210) = 49, A303838(210) = 55. - Gus Wiseman, Apr 01 2019

			The a(30) = 8 subsets are: {30}, {2,15}, {3,10}, {5,6}, {6,10}, {6,15}, {10,15}, {2,3,5}.

Gus Wiseman, Table of n, a(n) for n = 1..300

Cf. A000005, A006126, A074971, A076078, A085945, A285572, A285573, A286518, A286520, A303837, A303838, A324837.

minim[s_]:=Complement[s,First/@Select[Tuples[s,2],UnsameQ@@#&&SubsetQ@@#&]];
stableSets[u_,Q_]:=If[Length[u]==0,{{}},With[{w=First[u]},Join[stableSets[DeleteCases[u,w],Q],Prepend[#,w]&/@stableSets[DeleteCases[u,r_/;r==w||Q[r,w]||Q[w,r]],Q]]]];
Table[Length[minim[Select[Rest[stableSets[Divisors[n],Divisible]],LCM@@#==n&]]],{n,100}]

A317624 Number of integer partitions of n where all parts are > 1 and whose LCM is n.

Original entry on oeis.org

0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 5, 1, 1, 1, 17, 1, 1, 1, 7, 1, 60, 1, 1, 1, 1, 1, 76, 1, 1, 1, 55, 1, 105, 1, 11, 10, 1, 1, 187, 1, 6, 1, 13, 1, 30, 1, 111, 1, 1, 1, 5043, 1, 1, 15, 1, 1, 230, 1, 17, 1, 242, 1, 4173, 1, 1, 12, 19, 1

Offset: 0

Gus Wiseman, Aug 01 2018

nonn

			The a(20) = 5 partitions are (20), (10,4,4,2), (10,4,2,2,2), (5,5,4,4,2), (5,5,4,2,2,2).
The a(45) = 10 partitions:
  (45),
  (15,15,9,3,3), (15,9,9,9,3),
  (15,9,9,3,3,3,3), (15,9,5,5,5,3,3), (9,9,9,5,5,5,3),
  (15,9,3,3,3,3,3,3,3), (9,9,5,5,5,3,3,3,3), (9,5,5,5,5,5,5,3,3),
  (9,5,5,5,3,3,3,3,3,3,3).
From _David A. Corneth_, Sep 08 2018: (Start)
Let sum(t) denote the sum of elements of a tuple t. The tuples t with distinct divisors of 45 that have lcm(t) = 45 and sum(t) <= 45 are {(45) and (3, 9, 15), (3, 5, 9, 15), (3, 5, 9), (5, 9), (9, 15), (5, 9, 15)}. For each such tuple t, find the number of partitions of 45 - s(t) into distinct parts of t.
For the tuple (45), there is 1 partition of 45 - 45 = 0 into parts with 45. That is: {()}.
For the tuple (3, 9, 15), there are 4 partitions of 45 - (3 + 9 + 15) = 18 into parts with 3, 9 and 15. They are {(3, 15), (9, 9), (3, 3, 3, 9), (3, 3, 3, 3, 3, 3)}.
For the tuple (3, 5, 9), there are 4 partitions of 45 - (3 + 5 + 9) = 28 into parts with 3, 5 and 9; they are {(5, 5, 9, 9), (3, 3, 3, 5, 5, 9), (3, 5, 5, 5, 5, 5), (3, 3, 3, 3, 3, 3, 5, 5)}.
For the tuple (3, 5, 9, 15), there is 1 partition of 45 - (3 + 5 + 9 + 15) = 13 into parts with 3, 5, 9 and 15. That is (3, 5, 5).
The other tuples, (5, 9), (9, 15), and (5, 9, 15); they give no extra tuples. That's because there is no solution to the Diophantine equation for 5x + 9y = 45 - (5 + 9), corresponding to the tuple (5, 9) with nonnegative x, y.
That also excludes (9, 15); if there is a solution for that, there would also be a solution for (5, 9). This could whittle down the number of seeds even further. Similarly, (5, 9, 15) gives no solution.
Therefore a(45) = 1 + 4 + 4 + 1 = 10.
(End)
In general, there are A318670(n) (<= A069626(n)) such seed sets of divisors where to start extending the partition from. (See the second PARI program which uses subroutine toplevel_starting_sets.) - _Antti Karttunen_, Sep 08 2018

Antti Karttunen, Table of n, a(n) for n = 0..359
Index entries for sequences related to lcm's

Cf. A000837, A018818, A066874, A067538, A069626, A074761, A074971, A143773, A259936, A281116, A285572, A290103, A305566, A316429, A316431, A316432, A316433, A318670.

Table[Length[Select[IntegerPartitions[n],And[Min@@#>=2,LCM@@#==n]&]],{n,30}]

strong_divisors_reversed(n) = vecsort(select(x -> (x>1), divisors(n)), , 4);
partitions_into_lcm(orgn,n,parts,from=1,m=1) = if(!n,(m==orgn),my(k = #parts, s=0); for(i=from,k,if(parts[i]<=n, s += partitions_into_lcm(orgn,n-parts[i],parts,i,lcm(m,parts[i])))); (s));
A317624(n) = if(n<=1,0,partitions_into_lcm(n,n,strong_divisors_reversed(n))); \\ Antti Karttunen, Sep 07 2018

strong_divisors_reversed(n) = vecsort(select(x -> (x>1), divisors(n)), , 4);
partitions_into(n,parts,from=1) = if(!n,1, if(#parts==from, (0==(n%parts[from])), my(s=0); for(i=from,#parts,if(parts[i]<=n, s += partitions_into(n-parts[i],parts,i))); (s)));
toplevel_starting_sets(orgn,n,parts,from=1,ss=List([])) = { my(k = #parts, s=0, newss); if(lcm(Vec(ss))==orgn,s += partitions_into(n,ss)); for(i=from,k,if(parts[i]<=n, newss = List(ss); listput(newss,parts[i]); s += toplevel_starting_sets(orgn,n-parts[i],parts,i+1,newss))); (s) };
A317624(n) = if(n<=1,0,toplevel_starting_sets(n,n,strong_divisors_reversed(n))); \\ Antti Karttunen, Sep 08-10 2018

A324749 Number of strict integer partitions of n containing no part > 1 whose prime indices all belong to the partition.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 4, 3, 4, 6, 6, 8, 11, 10, 14, 14, 19, 21, 26, 28, 35, 38, 44, 50, 60, 65, 79, 88, 98, 113, 131, 144, 165, 185, 211, 234, 268, 297, 334, 374, 420, 470, 525, 584, 649, 727, 801, 902, 998, 1100, 1220, 1357, 1500, 1657, 1833, 2029, 2220, 2462

Offset: 0

Gus Wiseman, Mar 15 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.

			The a(0) = 1 through a(10) = 6 strict integer partitions:
  ()  (1)  (2)  (3)  (4)    (5)  (6)    (7)    (8)    (9)    (10)
                     (3,1)       (4,2)  (4,3)  (6,2)  (5,4)  (6,4)
                                 (5,1)  (5,2)  (7,1)  (6,3)  (7,3)
                                        (6,1)         (7,2)  (8,2)
                                                             (9,1)
                                                             (6,3,1)

The subset version is A324738. The non-strict version is A324754. The Heinz number version is A324759. An infinite version is A324694.
Cf. A000720, A001462, A007097, A074971, A078374, A112798, A276625, A290822, A305713.
Cf. A324744, A324750, A324755, A324760.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&!MemberQ[#,k_/;SubsetQ[#,PrimePi/@First/@FactorInteger[k]]]&]],{n,0,30}]

A324752 Number of strict integer partitions of n not containing 1 or any prime indices of the parts.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 2, 3, 1, 4, 4, 4, 5, 6, 7, 10, 9, 12, 12, 16, 17, 22, 22, 26, 31, 35, 37, 46, 50, 55, 66, 70, 82, 90, 101, 114, 127, 143, 159, 172, 202, 215, 246, 267, 301, 327, 366, 402, 447, 491, 545, 600, 655, 722, 795, 875, 964, 1050, 1152, 1259, 1383

Offset: 0

Gus Wiseman, Mar 16 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.

			The a(2) = 1 through a(17) = 12 strict integer partitions (A...H = 10...17):
  2  3  4  5  6   7   8  9   A   B    C   D    E    F    G    H
              42  43     54  64  65   75  76   86   87   97   98
                  52     63  73  83   84  85   95   96   A6   A7
                         72  82  542  93  94   A4   A5   C4   B6
                                      A2  B2   B3   B4   D3   C5
                                          643  752  C3   E2   D4
                                               842  D2   763  E3
                                                    654  943  854
                                                    843  A42  863
                                                    852       872
                                                              A52
                                                              B42
An example for n = 60 is (19,14,13,7,5,2), with prime indices:
  19: {8}
  14: {1,4}
  13: {6}
   7: {4}
   5: {3}
   2: {1}
None of these prime indices {1,3,4,6,8} belong to the partition, as required.

The subset version is A324742, with maximal case is A324763. The non-strict version is A324757. The Heinz number version is A324761. An infinite version is A304360.
Cf. A000720, A001462, A007097, A074971, A078374, A112798, A276625, A290822, A305713, A306844, A324764.
Cf. A324695, A324743, A324748, A324751, A324756, A324758.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&!MemberQ[#,1]&&Intersection[#,PrimePi/@First/@Join@@FactorInteger/@#]=={}&]],{n,0,30}]

A333225 Position of first appearance of n in A333226 (LCMs of compositions in standard order).

Original entry on oeis.org

1, 2, 4, 8, 16, 18, 64, 128, 256, 66, 1024, 68, 4096, 258, 132, 32768, 65536, 1026, 262144, 264, 516, 4098

Offset: 1

Gus Wiseman, Mar 26 2020

The k-th composition in standard order (row k of A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again.

			The sequence together with the corresponding compositions begins:
       1: (1)
       2: (2)
       4: (3)
       8: (4)
      16: (5)
      18: (3,2)
      64: (7)
     128: (8)
     256: (9)
      66: (5,2)
    1024: (11)
      68: (4,3)
    4096: (13)
     258: (7,2)
     132: (5,3)
   32768: (16)
   65536: (17)
    1026: (9,2)
  262144: (19)
     264: (5,4)

The version for binary indices is A333492.
The version for prime indices is A330225.
Let q(k) be the k-th composition in standard order:
- The terms of q(k) are row k of A066099.
- The sum of q(k) is A070939(k).
- The product of q(k) is A124758(k).
- The GCD of q(k) is A326674(k).
- The LCM of q(k) is A333226(k).
Cf. A000120, A029931, A074971, A076078, A233564, A271410, A289508, A289509, A290103, A333227.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
q=Table[LCM@@stc[n],{n,10000}];
Table[Position[q,i][[1,1]],{i,First[Split[Union[q],#1+1==#2&]]}]

A330225 Position of first appearance of n in A290103 = LCM of prime indices.

Original entry on oeis.org

1, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 35, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271

Offset: 1

Gus Wiseman, Mar 26 2020

nonn

Appears to be the prime numbers (A000040) with 2 replaced by 1 and 37 replaced by 35.

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 version for product instead of lcm is A318871
The version for standard compositions is A333225.
The version for binary indices is A333492.
Let q(k) be the prime indices of k:
- The product of q(k) is A003963(k).
- The sum of q(k) is A056239(k).
- The terms of q(k) are row k of A112798.
- The GCD of q(k) is A289508(k).
- The LCM of q(k) is A290103(k).
- The LCM of q(k) + 1 is A328219(k).
Cf. A000837, A074761, A074971, A076078, A285572, A289509, A290104, A319333, A324837, A328451, A331579, A333226.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
q=Table[If[n==1,1,LCM@@primeMS[n]],{n,100}];
Table[Position[q,i][[1,1]],{i,First[Split[Union[q],#1+1==#2&]]}]

cp's OEIS Frontend

A324751 Number of strict integer partitions of n containing no prime indices of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A333226 Least common multiple of the n-th composition in standard order.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A324748 Number of strict integer partitions of n containing all prime indices of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A324750 Number of strict integer partitions of n not containing 1 or any part whose prime indices all belong to the partition.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A324837 Number of minimal subsets of {1...n} with least common multiple n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A317624 Number of integer partitions of n where all parts are > 1 and whose LCM is n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

A324749 Number of strict integer partitions of n containing no part > 1 whose prime indices all belong to the partition.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A324752 Number of strict integer partitions of n not containing 1 or any prime indices of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A333225 Position of first appearance of n in A333226 (LCMs of compositions in standard order).

Views

Author

Keywords

Comments