A328676 -id:A328676 - cp's OEIS frontend

A328677 Numbers whose distinct prime indices are relatively prime and pairwise indivisible.

2, 4, 8, 15, 16, 32, 33, 35, 45, 51, 55, 64, 69, 75, 77, 85, 93, 95, 99, 119, 123, 128, 135, 141, 143, 145, 153, 155, 161, 165, 175, 177, 187, 201, 205, 207, 209, 215, 217, 219, 221, 225, 245, 249, 253, 255, 256, 265, 275, 279, 287, 291, 295, 297, 309, 323

Offset: 1

Gus Wiseman, Oct 30 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. Stable numbers are listed in A316476.

			The sequence of terms together with their prime indices begins:
    2: {1}
    4: {1,1}
    8: {1,1,1}
   15: {2,3}
   16: {1,1,1,1}
   32: {1,1,1,1,1}
   33: {2,5}
   35: {3,4}
   45: {2,2,3}
   51: {2,7}
   55: {3,5}
   64: {1,1,1,1,1,1}
   69: {2,9}
   75: {2,3,3}
   77: {4,5}
   85: {3,7}
   93: {2,11}
   95: {3,8}
   99: {2,2,5}
  119: {4,7}

These are the Heinz numbers of the partitions counted by A328676.
Numbers whose prime indices are relatively prime are A289509.
Partitions whose distinct parts are pairwise indivisible are A305148.
The version for binary indices (instead of prime indices) is A328671.
Cf. A000837, A056239, A112798, A285573, A289508, A303362, A304713, A327393, A328460.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
Select[Range[100],GCD@@primeMS[#]==1&&stableQ[primeMS[#],Divisible]&]

Intersection of A316476 and A289509.

A328671 Numbers whose binary indices are relatively prime and pairwise indivisible.

Original entry on oeis.org

1, 6, 12, 18, 20, 22, 24, 28, 48, 56, 66, 68, 70, 72, 76, 80, 82, 84, 86, 88, 92, 96, 104, 112, 120, 132, 144, 148, 176, 192, 196, 208, 212, 224, 240, 258, 264, 272, 274, 280, 296, 304, 312, 320, 322, 328, 336, 338, 344, 352, 360, 368, 376, 384, 400, 416, 432

Offset: 1

Gus Wiseman, Oct 29 2019

nonn

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.

			The sequence of terms together with their binary expansions and binary indices begins:
    1:         1 ~ {1}
    6:       110 ~ {2,3}
   12:      1100 ~ {3,4}
   18:     10010 ~ {2,5}
   20:     10100 ~ {3,5}
   22:     10110 ~ {2,3,5}
   24:     11000 ~ {4,5}
   28:     11100 ~ {3,4,5}
   48:    110000 ~ {5,6}
   56:    111000 ~ {4,5,6}
   66:   1000010 ~ {2,7}
   68:   1000100 ~ {3,7}
   70:   1000110 ~ {2,3,7}
   72:   1001000 ~ {4,7}
   76:   1001100 ~ {3,4,7}
   80:   1010000 ~ {5,7}
   82:   1010010 ~ {2,5,7}
   84:   1010100 ~ {3,5,7}
   86:   1010110 ~ {2,3,5,7}
   88:   1011000 ~ {4,5,7}

The version for prime indices (instead of binary indices) is A328677.
Numbers whose binary indices are relatively prime are A291166.
Numbers whose distinct prime indices are pairwise indivisible are A316476.
BII-numbers of antichains are A326704.
Relatively prime partitions whose distinct parts are pairwise indivisible are A328676, with strict case A328678.
Cf. A000120, A121016, A285573, A303362, A304713, A305148, A316468, A316475.

bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
Select[Range[100],GCD@@bpe[#]==1&&stableQ[bpe[#],Divisible]&]

Intersection of A291166 with A326704.

A328678 Number of strict, pairwise indivisible, relatively prime integer partitions of n.

Original entry on oeis.org

1, 0, 0, 0, 1, 0, 2, 1, 2, 2, 4, 3, 5, 4, 5, 7, 10, 9, 12, 11, 14, 15, 22, 20, 25, 26, 32, 33, 44, 41, 54, 49, 62, 67, 80, 80, 100, 100, 118, 121, 152, 148, 179, 178, 210, 219, 267, 259, 316, 313, 363, 380, 449, 448, 529, 532, 619, 640, 745, 749, 867, 889

Offset: 1

Gus Wiseman, Oct 30 2019

nonn

Note that pairwise indivisibility implies strictness, but we include "strict" in the name in order to more clearly distinguish it from A328676 = "Number of relatively prime integer partitions of n whose distinct parts are pairwise indivisible".

			The a(1) = 1 through a(20) = 11 partitions (A..H = 10..20) (empty columns not shown):
  1  32  43  53  54  73   65  75   76  95   87   97   98    B7   A9    B9
         52      72  532  74  543  85  B3   B4   B5   A7    D5   B8    D7
                          83  732  94  743  D2   D3   B6    765  C7    H3
                          92       A3  752  654  754  C5    873  D6    875
                                   B2       753  853  D4    954  E5    965
                                                 952  E3    972  F4    974
                                                 B32  F2    B43  G3    A73
                                                      764   B52  H2    B54
                                                      A43   D32  865   B72
                                                      7532       964   D43
                                                                 B53   D52
                                                                 7543

The Heinz numbers of these partitions are the squarefree terms of A328677.
The non-strict case is A328676.
Pairwise indivisible partitions are A303362.
Strict, relatively prime partitions are A078374.
A ranking function using binary indices is A328671.
Cf. A000837, A285572, A285573, A304713, A305148, A316476, A328171.

stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&GCD@@#==1&&stableQ[#,Divisible]&]],{n,30}]

Moebius transform of A303362.

A328871 Number of integer partitions of n whose distinct parts are pairwise indivisible (stable) and pairwise non-relatively prime (intersecting).

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 4, 2, 4, 3, 5, 2, 6, 2, 7, 5, 7, 2, 10, 2, 11, 7, 14, 2, 16, 4, 19, 8, 22, 2, 30, 3, 29, 14, 37, 8, 48, 4, 50, 19, 59, 5, 82, 4, 81, 28, 93, 8, 128, 9, 128, 38, 147, 8, 199, 19, 196, 52, 223, 12, 308

Offset: 0

Gus Wiseman, Nov 12 2019

nonn

A partition with no two distinct parts divisible is said to be stable, and a partition with no two distinct parts relatively prime is said to be intersecting, so these are just stable intersecting partitions.

			The a(1) = 1 through a(10) = 5 partitions (A = 10):
  1  2   3    4     5      6       7        8         9          A
     11  111  22    11111  33      1111111  44        333        55
              1111         222              2222      111111111  64
                           111111           11111111             22222
                                                                 1111111111

The Heinz numbers of these partitions are A329366.
Replacing "intersecting" with "relatively prime" gives A328676.
Stable partitions are A305148.
Intersecting partitions are A328673.
Cf. A000837, A285573, A303362, A305148, A316476, A328671, A328677.

stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
Table[Length[Select[IntegerPartitions[n],stableQ[Union[#],Divisible]&&stableQ[Union[#],GCD[#1,#2]==1&]&]],{n,0,30}]

cp's OEIS Frontend

A328677 Numbers whose distinct prime indices are relatively prime and pairwise indivisible.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A328671 Numbers whose binary indices are relatively prime and pairwise indivisible.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A328678 Number of strict, pairwise indivisible, relatively prime integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A328871 Number of integer partitions of n whose distinct parts are pairwise indivisible (stable) and pairwise non-relatively prime (intersecting).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica