A018783 -id:A018783 - cp's OEIS frontend

A303283 Squarefree numbers whose prime indices have no common divisor other than 1 but are not pairwise coprime.

42, 78, 105, 114, 130, 174, 182, 195, 210, 222, 230, 231, 258, 266, 285, 318, 345, 357, 366, 370, 390, 406, 426, 429, 435, 455, 462, 470, 474, 483, 494, 518, 534, 546, 555, 570, 598, 602, 606, 610, 627, 638, 642, 645, 651, 663, 665, 678, 690, 705, 714, 715

Offset: 1

Gus Wiseman, Apr 20 2018

nonn

A prime index of n is a number m such that prime(m) divides n. Two or more numbers are coprime if no pair of them has a common divisor other than 1.

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

			The sequence of strict integer partitions whose Heinz numbers belong to this sequence begins (4,2,1), (6,2,1), (4,3,2), (8,2,1), (6,3,1), (10,2,1), (6,4,1), (6,3,2), (4,3,2,1), (12,2,1), (9,3,1), (5,4,2), (14,2,1), (8,4,1), (8,3,2), (16,2,1), (9,3,2), (7,4,2), (18,2,1), (12,3,1), (6,3,2,1).

Cf. A000837, A001222, A018783, A051424, A056239, A078374, A168532, A289508, A289509, A296150, A298748, A300486, A302569, A302696, A302796, A303138, A303139, A303140, A303282.

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[400],SquareFreeQ[#]&&!CoprimeQ@@primeMS[#]&&GCD@@primeMS[#]===1&]

A319162 Number of periodic integer partitions of n whose multiplicities are aperiodic, meaning the multiplicities of these multiplicities are relatively prime.

Original entry on oeis.org

0, 1, 1, 2, 1, 3, 1, 4, 2, 6, 1, 9, 1, 12, 6, 16, 1, 27, 1, 33, 12, 46, 1, 70, 5, 84, 22, 110, 1, 172, 1, 188, 46, 251, 15, 366, 1, 418, 84, 540, 1, 775, 1, 863, 162, 1095, 1, 1535, 11, 1750, 251, 2154, 1, 2963, 49, 3323, 418, 4106, 1, 5567

Offset: 1

Gus Wiseman, Sep 12 2018

nonn

			The a(12) = 9 partitions:
  (66),
  (444), (441111),
  (3333), (33111111),
  (222222), (222111111), (2211111111),
  (111111111111).

Cf. A000837, A018783, A047966, A098859, A100953, A305563, A319149, A319160, A319163, A319164.

Table[Length[Select[IntegerPartitions[n],And[GCD@@Sort[Length/@Split[#]]>1,GCD@@Length/@Split[Sort[Length/@Split[#]]]==1]&]],{n,30}]

A328221 Number of integer partitions of n with at least one pair of consecutive divisible parts.

Original entry on oeis.org

0, 0, 1, 2, 4, 5, 10, 12, 20, 26, 38, 51, 73, 92, 126, 166, 219, 283, 369, 470, 604, 763, 968, 1217, 1534, 1907, 2376, 2944, 3640, 4476, 5501, 6723, 8212, 9986, 12130, 14682, 17748, 21376, 25717, 30847, 36959, 44152, 52688, 62714, 74557, 88440, 104775, 123878

Offset: 0

Gus Wiseman, Oct 15 2019

nonn

Includes all non-strict partitions.

			The a(2) = 1 through a(8) = 20 partitions:
  (11)  (21)   (22)    (41)     (33)      (61)       (44)
        (111)  (31)    (221)    (42)      (322)      (62)
               (211)   (311)    (51)      (331)      (71)
               (1111)  (2111)   (222)     (421)      (332)
                       (11111)  (321)     (511)      (422)
                                (411)     (2221)     (431)
                                (2211)    (3211)     (521)
                                (3111)    (4111)     (611)
                                (21111)   (22111)    (2222)
                                (111111)  (31111)    (3221)
                                          (211111)   (3311)
                                          (1111111)  (4211)
                                                     (5111)
                                                     (22211)
                                                     (32111)
                                                     (41111)
                                                     (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)

The complement is counted by A328171.
Partitions whose consecutive parts are relatively prime are A328172.
Partitions with no pair of consecutive parts relatively prime are A328187.
Numbers without consecutive divisible proper divisors are A328028.
Cf. A000837, A018783, A328026, A328161, A328188, A328189, A328194, A328220.

Table[Length[Select[IntegerPartitions[n],MatchQ[#,{_,x_,y_,_}/;Divisible[x,y]]&]],{n,0,30}]

A335240 Number of integer partitions of n that are not pairwise coprime, where a singleton is not coprime unless it is (1).

Original entry on oeis.org

1, 0, 1, 1, 2, 2, 5, 6, 11, 16, 25, 34, 51, 69, 98, 134, 181, 238, 316, 410, 536, 691, 887, 1122, 1423, 1788, 2246, 2800, 3483, 4300, 5304, 6508, 7983, 9745, 11869, 14399, 17436, 21040, 25367, 30482, 36568, 43735, 52239, 62239, 74073, 87950, 104277, 123348

Offset: 0

Gus Wiseman, May 30 2020

nonn

We use the Mathematica definition for CoprimeQ, so a singleton is not considered coprime unless it is (1).

These are also partitions that are a singleton or whose product is strictly greater than the LCM of their parts.

			The a(2) = 1 through a(9) = 16 partitions:
  (2)  (3)  (4)   (5)    (6)     (7)      (8)       (9)
            (22)  (221)  (33)    (322)    (44)      (63)
                         (42)    (331)    (62)      (333)
                         (222)   (421)    (332)     (432)
                         (2211)  (2221)   (422)     (441)
                                 (22111)  (2222)    (522)
                                          (3221)    (621)
                                          (3311)    (3222)
                                          (4211)    (3321)
                                          (22211)   (4221)
                                          (221111)  (22221)
                                                    (32211)
                                                    (33111)
                                                    (42111)
                                                    (222111)
                                                    (2211111)

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..750

The version for relatively prime instead of coprime is A018783.
The Heinz numbers of these partitions are the complement of A302696.
The complement is counted by A327516.
Singleton or pairwise coprime partitions are counted by A051424.
Singleton or pairwise coprime sets are ranked by A087087.
Numbers whose binary indices are pairwise coprime are A326675.
All of the following pertain to compositions in standard order (A066099):
- GCD is A326674.
- LCM is A333226.
- Coprime compositions are A333227.
- Compositions whose distinct parts are coprime are A333228.
- Non-coprime compositions are A335239.
Cf. A007360, A101268, A302569, A335235, A335236, A335237, A335238.

Table[Length[Select[IntegerPartitions[n],!CoprimeQ@@#&]],{n,0,30}]

A202425 Number of partitions of n into parts having pairwise common factors but no overall common factor.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 3, 0, 3, 0, 0, 1, 6, 0, 5, 0, 2, 2, 9, 0, 8, 2, 4, 3, 16, 0, 22, 5, 6, 5, 19, 2, 35, 8, 14, 6, 44, 4, 55, 13, 16, 19, 64, 6, 82, 17, 39, 31, 108, 10, 105, 40, 66, 46, 161, 14, 182, 61, 97, 72, 207, 37, 287, 85, 144, 93, 357, 59

Offset: 31

Alois P. Heinz, Dec 19 2011

nonn

			a(31) = 1: [6,10,15] = [2*3,2*5,3*5].
a(37) = 2: [6,6,10,15], [10,12,15].
a(41) = 3: [6,10,10,15], [6,15,20], [6,14,21].
a(47) = 6: [6,6,10,10,15], [10,10,12,15], [6,6,15,20], [12,15,20], [6,6,14,21], [12,14,21].
a(49) = 5: [6,6,6,6,10,15], [6,6,10,12,15], [10,12,12,15], [6,10,15,18], [10,15,24].

Fausto A. C. Cariboni, Table of n, a(n) for n = 31..400 (terms 31..251 from Alois P. Heinz)

Cf. A202385, A018783.
The version with only distinct parts compared is A328672.
The Heinz numbers of these partitions are A328868.
The strict case is A202385, which is essentially the same as A318715.
The version for non-isomorphic multiset partitions is A319759.
The version for set-systems is A326364.
Intersecting partitions are A200976.
Cf. A000837, A305148, A305843, A306006, A318717, A328673, A328867.

with(numtheory):
w:= (m, h)-> mul(`if`(j>=h, 1, j), j=factorset(m)):
b:= proc(n, i, g, s) option remember; local j, ok, si;
      if n<0 then 0
    elif n=0 then `if`(g>1, 0, 1)
    elif i<2 or member(1, s) then 0
    else ok:= evalb(i<=n);
         si:= map(x->w(x, i), s);
         for j in s while ok do ok:= igcd(i, j)>1 od;
         b(n, i-1, g, si) +`if`(ok, add(b(n-t*i, i-1, igcd(i, g),
                      si union {w(i,i)} ), t=1..iquo(n, i)), 0)
      fi
    end:
a:= n-> b(n, n, 0, {}):
seq(a(n), n=31..100);

w[m_, h_] := Product[If[j >= h, 1, j], {j, FactorInteger[m][[All, 1]]}]; b[n_, i_, g_, s_] := b[n, i, g, s] = Module[{j, ok, si}, Which[n<0, 0, n == 0, If[g>1, 0, 1], i<2 || MemberQ[s, 1], 0, True, ok = (i <= n); si = w[#, i]& /@ s; Do[If[ok, ok = (GCD[i, j]>1)], {j, s}]; b[n, i-1, g, si] + If[ok, Sum[b[n-t*i, i-1, GCD[i, g], si ~Union~ {w[i, i]}], {t, 1, Quotient[n, i]}], 0]]]; a[n_] := b[n, n, 0, {}]; Table[a[n], {n, 31, 100}] (* Jean-François Alcover, Feb 16 2017, translated from Maple *)
Table[Length[Select[IntegerPartitions[n],GCD@@#==1&&And@@(GCD[##]>1&)@@@Tuples[#,2]&]],{n,0,40}] (* Gus Wiseman, Nov 04 2019 *)

a(n > 0) = A328672(n) - 1. - Gus Wiseman, Nov 04 2019

A318981 Numbers whose prime indices plus 1 are relatively prime.

Original entry on oeis.org

1, 6, 12, 14, 15, 18, 21, 24, 26, 28, 30, 35, 36, 38, 39, 42, 45, 48, 51, 52, 54, 56, 58, 60, 63, 65, 66, 69, 70, 72, 74, 75, 76, 77, 78, 84, 86, 87, 90, 91, 95, 96, 98, 102, 104, 105, 106, 108, 111, 112, 114, 116, 117, 119, 120, 122, 123, 126, 130, 132, 133

Offset: 1

Gus Wiseman, Sep 06 2018

nonn

A prime index of n is a number m such that prime(m) divides n.

			The sequence of integer partitions whose Heinz numbers are in the sequence begins: (), (21), (211), (41), (32), (221), (42), (2111), (61), (411), (321), (43), (2211), (81), (62), (421), (322), (21111).

Cf. A000837, A007359, A018783, A281116, A289508, A289509, A318978, A318980.

Select[Range[100],GCD@@(PrimePi/@FactorInteger[#][[All,1]]+1)==1&]

A319164 Number of integer partitions of n that are neither relatively prime nor aperiodic.

Original entry on oeis.org

0, 0, 0, 1, 0, 2, 0, 2, 1, 2, 0, 5, 0, 2, 2, 5, 0, 6, 0, 9, 2, 2, 0, 17, 1, 2, 3, 17, 0, 18, 0, 22, 2, 2, 2, 48, 0, 2, 2, 48, 0, 34, 0, 58, 11, 2, 0, 111, 1, 14, 2, 103, 0, 65, 2, 141, 2, 2, 0, 264, 0, 2, 19, 231, 2, 116, 0, 299, 2, 42

Offset: 1

Gus Wiseman, Sep 12 2018

nonn

A partition is aperiodic if its multiplicities are relatively prime.

			The a(24) = 17 integer partitions:
  (12,12),
  (8,8,8),
  (6,6,6,6), (8,8,4,4), (9,9,3,3), (10,10,2,2),
  (4,4,4,4,4,4), (6,6,3,3,3,3), (6,6,4,4,2,2), (6,6,6,2,2,2), (8,8,2,2,2,2),
  (3,3,3,3,3,3,3,3), (4,4,4,4,2,2,2,2), (6,6,2,2,2,2,2,2),
  (4,4,4,2,2,2,2,2,2),
  (4,4,2,2,2,2,2,2,2,2),
  (2,2,2,2,2,2,2,2,2,2,2,2).

Cf. A000837, A018783, A047966, A098859, A100953, A305563, A319149, A319160, A319162, A319165.

Table[Length[Select[IntegerPartitions[n],And[GCD@@#>1,GCD@@Length/@Split[#]>1]&]],{n,30}]

A366845 Number of integer partitions of n that contain at least one even part and whose halved even parts are relatively prime.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 5, 7, 11, 15, 23, 31, 43, 58, 82, 107, 144, 189, 250, 323, 420, 537, 695, 880, 1114, 1404, 1774, 2210, 2759, 3423, 4239, 5223, 6430, 7869, 9640, 11738, 14266, 17297, 20950, 25256, 30423, 36545, 43824, 52421, 62620, 74599, 88802, 105431

Offset: 0

Gus Wiseman, Oct 28 2023

nonn

			The partition y = (6,4) has halved even parts (3,2) which are relatively prime, so y is counted under a(10).
The a(2) = 1 through a(9) = 15 partitions:
  (2)  (21)  (22)   (32)    (42)     (52)      (62)       (72)
             (211)  (221)   (222)    (322)     (332)      (432)
                    (2111)  (321)    (421)     (422)      (522)
                            (2211)   (2221)    (521)      (621)
                            (21111)  (3211)    (2222)     (3222)
                                     (22111)   (3221)     (3321)
                                     (211111)  (4211)     (4221)
                                               (22211)    (5211)
                                               (32111)    (22221)
                                               (221111)   (32211)
                                               (2111111)  (42111)
                                                          (222111)
                                                          (321111)
                                                          (2211111)
                                                          (21111111)

For all parts we have A000837, complement A018783.
These partitions have ranks A366847.
For odd parts we have A366850, ranks A366846, complement A366842.
A000041 counts integer partitions, strict A000009, complement A047967.
A035363 counts partitions into all even parts, ranks A066207.
A078374 counts relatively prime strict partitions.
A168532 counts partitions by gcd.
A239261 counts partitions with (sum of odd parts) = (sum of even parts).
A366531 = 2*A366533 adds up even prime indices, triangle A113686/A174713.
Cf. A051424, A113685, A116598, A258117, A289509, A366843, A366849.

Table[Length[Select[IntegerPartitions[n], GCD@@Select[#,EvenQ]/2==1&]],{n,0,30}]

A366848 Odd numbers whose odd prime indices are relatively prime.

Original entry on oeis.org

55, 85, 155, 165, 187, 205, 253, 255, 275, 295, 335, 341, 385, 391, 415, 425, 451, 465, 485, 495, 527, 545, 561, 595, 605, 615, 635, 649, 697, 713, 715, 737, 745, 759, 765, 775, 785, 799, 803, 825, 885, 895, 913, 935, 943, 955, 1003, 1005, 1023, 1025, 1045

Offset: 1

Gus Wiseman, Nov 01 2023

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 odd prime indices of 345 are {3,9}, which are not relatively prime, so 345 is not in the sequence.
The odd prime indices of 825 are {3,3,5}, which are relatively prime, so 825 is in the sequence
The terms together with their prime indices begin:
    55: {3,5}
    85: {3,7}
   155: {3,11}
   165: {2,3,5}
   187: {5,7}
   205: {3,13}
   253: {5,9}
   255: {2,3,7}
   275: {3,3,5}
   295: {3,17}
   335: {3,19}
   341: {5,11}
   385: {3,4,5}
   391: {7,9}
   415: {3,23}
   425: {3,3,7}
   451: {5,13}
   465: {2,3,11}
   485: {3,25}
   495: {2,2,3,5}

Including even terms and prime indices gives A289509, ones of A289508, counted by A000837.
Including even prime indices gives A302697, counted by A302698.
Including even terms gives A366846, counted by A366850.
For halved even instead of odd prime indices we have A366849.
A000041 counts integer partitions, strict A000009 (also into odds).
A066208 lists numbers with all odd prime indices, even A066207.
A112798 lists prime indices, length A001222, sum A056239.
A257991 counts odd prime indices, even A257992.
A366528 adds up odd prime indices, partition triangle A113685.
A366531 = 2*A366533 adds up even prime indices, triangle A113686/A174713.
Cf. A000720, A018783, A055396, A061395, A087436, A325698, A365067, A366842, A366843, A366844, A366847.

Select[Range[1000], OddQ[#]&&GCD@@Select[PrimePi/@First/@FactorInteger[#], OddQ]==1&]

A303138 Regular triangle where T(n,k) is the number of strict integer partitions of n with greatest common divisor k.

Original entry on oeis.org

1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 2, 0, 0, 0, 1, 2, 1, 0, 0, 0, 1, 4, 0, 0, 0, 0, 0, 1, 4, 1, 0, 0, 0, 0, 0, 1, 6, 0, 1, 0, 0, 0, 0, 0, 1, 7, 2, 0, 0, 0, 0, 0, 0, 0, 1, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 10, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 17, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 23, 0, 2, 0, 1

Offset: 1

Gus Wiseman, Apr 19 2018

			Triangle begins:
01:   1
02:   0  1
03:   1  0  1
04:   1  0  0  1
05:   2  0  0  0  1
06:   2  1  0  0  0  1
07:   4  0  0  0  0  0  1
08:   4  1  0  0  0  0  0  1
09:   6  0  1  0  0  0  0  0  1
10:   7  2  0  0  0  0  0  0  0  1
11:  11  0  0  0  0  0  0  0  0  0  1
12:  10  2  1  1  0  0  0  0  0  0  0  1
13:  17  0  0  0  0  0  0  0  0  0  0  0  1
14:  17  4  0  0  0  0  0  0  0  0  0  0  0  1
15:  23  0  2  0  1  0  0  0  0  0  0  0  0  0  1
The strict partitions counted in row 12 are the following.
T(12,1) = 10: (11,1) (9,2,1) (8,3,1) (7,5) (7,4,1) (7,3,2) (6,5,1) (6,3,2,1) (5,4,3) (5,4,2,1)
T(12,2) = 2:  (10,2) (6,4,2)
T(12,3) = 1:  (9,3)
T(12,4) = 1:  (8,4)
T(12,12) = 1: (12)

First column is A078374. Second column at even indices is same as first column. Row sums are A000009. Row sums with first column removed are A303280.

Cf. A000009, A000837, A018783, A051424, A117408, A168532, A289508, A289509, A298748, A300486, A302698, A302796, A303139, A303140, A303280.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&GCD@@#===k&]],{n,15},{k,n}]

If k divides n, T(n,k) = A078374(n/k); otherwise T(n,k) = 0.

cp's OEIS Frontend

A303283 Squarefree numbers whose prime indices have no common divisor other than 1 but are not pairwise coprime.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A319162 Number of periodic integer partitions of n whose multiplicities are aperiodic, meaning the multiplicities of these multiplicities are relatively prime.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A328221 Number of integer partitions of n with at least one pair of consecutive divisible parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A335240 Number of integer partitions of n that are not pairwise coprime, where a singleton is not coprime unless it is (1).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A202425 Number of partitions of n into parts having pairwise common factors but no overall common factor.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A318981 Numbers whose prime indices plus 1 are relatively prime.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A319164 Number of integer partitions of n that are neither relatively prime nor aperiodic.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A366845 Number of integer partitions of n that contain at least one even part and whose halved even parts are relatively prime.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A366848 Odd numbers whose odd prime indices are relatively prime.

Views

Author

Keywords

Comments

Examples