cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-29 of 29 results.

A328868 Heinz numbers of integer partitions with no two (not necessarily distinct) parts relatively prime, but with no divisor in common to all of the parts.

Original entry on oeis.org

17719, 40807, 43381, 50431, 74269, 83143, 101543, 105703, 116143, 121307, 123469, 139919, 140699, 142883, 171613, 181831, 185803, 191479, 203557, 205813, 211381, 213239, 215267, 219271, 230347, 246703, 249587, 249899, 279371, 286897, 289007, 296993, 300847
Offset: 1

Views

Author

Gus Wiseman, Oct 30 2019

Keywords

Comments

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

Examples

			The sequence of terms together with their prime indices begins:
   17719: {6,10,15}
   40807: {6,14,21}
   43381: {6,15,20}
   50431: {10,12,15}
   74269: {6,10,45}
   83143: {10,15,18}
  101543: {6,21,28}
  105703: {6,15,40}
  116143: {12,14,21}
  121307: {10,15,24}
  123469: {12,15,20}
  139919: {6,15,50}
  140699: {6,22,33}
  142883: {6,10,75}
  171613: {6,14,63}
  181831: {6,20,45}
  185803: {10,14,35}
  191479: {14,18,21}
  203557: {15,18,20}
  205813: {10,15,36}
  211381: {10,12,45}
  213239: {6,15,70}
  215267: {6,10,105}
  219271: {6,26,39}
  230347: {6,6,10,15}
		

Crossrefs

These are the Heinz numbers of the partitions counted by A202425.
Terms of A328679 that are not powers of 2.
The strict case is A318716 (preceded by 2).
A ranking using binary indices (instead of prime indices) is A326912.
Heinz numbers of relatively prime partitions are A289509.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    dv=Select[Range[100000],GCD@@primeMS[#]==1&&And[And@@(GCD[##]>1&)@@@Tuples[Union[primeMS[#]],2]]&]

A336737 Number of factorizations of n whose factors have pairwise intersecting prime signatures.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 3, 1, 2, 2, 3, 1, 3, 1, 3, 2, 2, 1, 4, 2, 2, 2, 3, 1, 5, 1, 2, 2, 2, 2, 7, 1, 2, 2, 4, 1, 5, 1, 3, 3, 2, 1, 6, 2, 3, 2, 3, 1, 4, 2, 4, 2, 2, 1, 9, 1, 2, 3, 4, 2, 5, 1, 3, 2, 5, 1, 9, 1, 2, 3, 3, 2, 5, 1, 6, 3, 2, 1, 9, 2, 2, 2
Offset: 1

Views

Author

Gus Wiseman, Aug 06 2020

Keywords

Comments

First differs from A327400 at a(72) = 9, A327400(72) = 10.
A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization.

Examples

			The a(n) factorizations for n = 2, 4, 12, 24, 30, 36, 60:
  (2)  (4)    (12)     (24)       (30)     (36)       (60)
       (2*2)  (2*6)    (2*12)     (5*6)    (4*9)      (2*30)
              (2*2*3)  (2*2*6)    (2*15)   (6*6)      (3*20)
                       (2*2*2*3)  (3*10)   (2*18)     (5*12)
                                  (2*3*5)  (3*12)     (6*10)
                                           (2*3*6)    (2*5*6)
                                           (2*2*3*3)  (2*2*15)
                                                      (2*3*10)
                                                      (2*2*3*5)
		

Crossrefs

A001055 counts factorizations.
A118914 is sorted prime signature.
A124010 is prime signature.
A336736 counts factorizations with disjoint signatures.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}];
    prisig[n_]:=If[n==1,{},Last/@FactorInteger[n]];
    Table[Length[Select[facs[n],stableQ[#,Intersection[prisig[#1],prisig[#2]]=={}&]&]],{n,100}]

A319762 Number of non-isomorphic intersecting set multipartitions (multisets of sets) of weight n with empty intersection.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 1, 1, 4, 9, 24
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

A set multipartition is intersecting if no two parts are disjoint. The weight of a set multipartition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

Examples

			Non-isomorphic representatives of the a(6) = 1 through a(9) = 9 set multipartitions:
6: {{1,2},{1,3},{2,3}}
7: {{1,3},{1,4},{2,3,4}}
8: {{1,2},{1,3,4},{2,3,4}}
   {{1,4},{1,5},{2,3,4,5}}
   {{2,4},{1,2,5},{3,4,5}}
   {{1,2},{1,3},{2,3},{2,3}}
9: {{1,3},{1,4,5},{2,3,4,5}}
   {{1,5},{1,6},{2,3,4,5,6}}
   {{2,5},{1,2,6},{3,4,5,6}}
   {{1,2,3},{2,4,5},{3,4,5}}
   {{1,3,5},{2,3,6},{4,5,6}}
   {{1,2},{1,3},{1,4},{2,3,4}}
   {{1,2},{1,3},{2,3},{1,2,3}}
   {{1,3},{1,4},{1,4},{2,3,4}}
   {{1,3},{1,4},{3,4},{2,3,4}}
		

Crossrefs

A319763 Number of non-isomorphic strict intersecting multiset partitions (sets of multisets) of weight n with empty intersection.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 1, 2, 12, 46, 181
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

A multiset partition is intersecting if no two parts are disjoint. The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

Examples

			Non-isomorphic representatives of the a(6) = 1 through a(8) = 12 multiset partitions:
6: {{1,2},{1,3},{2,3}}
7: {{1,2},{1,3},{2,3,3}}
   {{1,3},{1,4},{2,3,4}}
8: {{1,2},{1,3},{2,2,3,3}}
   {{1,2},{1,3},{2,3,3,3}}
   {{1,2},{1,3},{2,3,4,4}}
   {{1,2},{1,3,3},{2,3,3}}
   {{1,2},{1,3,4},{2,3,4}}
   {{1,3},{1,4},{2,3,4,4}}
   {{1,3},{1,1,2},{2,3,3}}
   {{1,3},{1,2,2},{2,3,3}}
   {{1,4},{1,5},{2,3,4,5}}
   {{2,3},{1,2,4},{3,4,4}}
   {{2,4},{1,2,3},{3,4,4}}
   {{2,4},{1,2,5},{3,4,5}}
		

Crossrefs

A319764 Number of non-isomorphic intersecting set systems of weight n with empty intersection.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 1, 1, 3, 8, 18
Offset: 0

Views

Author

Gus Wiseman, Sep 27 2018

Keywords

Comments

A set system is a finite set of finite nonempty sets. It is intersecting if no two parts are disjoint. The weight of a set system is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

Examples

			Non-isomorphic representatives of the a(6) = 1 through a(9) = 8 set systems:
6: {{1,2},{1,3},{2,3}}
7: {{1,3},{1,4},{2,3,4}}
8: {{1,2},{1,3,4},{2,3,4}}
   {{1,4},{1,5},{2,3,4,5}}
   {{2,4},{1,2,5},{3,4,5}}
9: {{1,3},{1,4,5},{2,3,4,5}}
   {{1,5},{1,6},{2,3,4,5,6}}
   {{2,5},{1,2,6},{3,4,5,6}}
   {{1,2,3},{2,4,5},{3,4,5}}
   {{1,3,5},{2,3,6},{4,5,6}}
   {{1,2},{1,3},{1,4},{2,3,4}}
   {{1,2},{1,3},{2,3},{1,2,3}}
   {{1,3},{1,4},{3,4},{2,3,4}}
		

Crossrefs

A337983 Number of compositions of n into distinct parts, any two of which have a common divisor > 1.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 3, 1, 3, 3, 5, 1, 13, 1, 13, 7, 19, 1, 35, 1, 59, 15, 65, 1, 117, 5, 133, 27, 195, 1, 411, 7, 435, 67, 617, 17, 941, 7, 1177, 135, 1571, 13, 2939, 31, 3299, 375, 4757, 13, 6709, 43, 8813, 643, 11307, 61, 16427, 123, 24331, 1203, 30461, 67
Offset: 0

Views

Author

Gus Wiseman, Oct 06 2020

Keywords

Comments

Number of pairwise non-coprime strict compositions of n.

Examples

			The a(2) = 1 through a(15) = 7 compositions (A..F = 10..15):
  2  3  4  5  6   7  8   9   A   B  C    D  E    F
              24     26  36  28     2A      2C   3C
              42     62  63  46     39      4A   5A
                             64     48      68   69
                             82     84      86   96
                                    93      A4   A5
                                    A2      C2   C3
                                    246     248
                                    264     284
                                    426     428
                                    462     482
                                    624     824
                                    642     842
		

Crossrefs

A318717 is the unordered version.
A318719 is the version for Heinz numbers of partitions.
A337561 is the pairwise coprime instead of pairwise non-coprime version, or A337562 if singletons are considered coprime.
A337605*6 counts these compositions of length 3.
A337667 is the non-strict version, ranked by A337666.
A337696 ranks these compositions.
A051185 and A305843 (covering) count pairwise intersecting set-systems.
A101268 counts pairwise coprime or singleton compositions.
A200976 and A328673 are the unordered version.
A233564 ranks strict compositions.
A318749 is the version for factorizations, with non-strict version A319786.
A333228 ranks compositions whose distinct parts are pairwise coprime.
A335236 ranks compositions neither a singleton nor pairwise coprime.
A337462 counts pairwise coprime compositions.
A337694 lists numbers with no two relatively prime prime indices.

Programs

  • Mathematica
    stabQ[u_,Q_]:=And@@Not/@Q@@@Tuples[u,2];
    Table[Length[Join@@Permutations/@Select[IntegerPartitions[n],UnsameQ@@#&&stabQ[#,CoprimeQ]&]],{n,0,30}]

A328679 Heinz numbers of integer partitions with no two distinct parts relatively prime, but with no divisor in common to all of the parts.

Original entry on oeis.org

1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 17719, 32768, 40807, 43381, 50431, 65536, 74269, 83143, 101543, 105703, 116143, 121307, 123469, 131072, 139919, 140699, 142883, 171613, 181831, 185803, 191479, 203557, 205813, 211381, 213239
Offset: 1

Views

Author

Gus Wiseman, Oct 30 2019

Keywords

Comments

Equals the union A000079 and A328868.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
A partition with no two distinct parts relatively prime is said to be intersecting.

Examples

			The sequence of terms together with their prime indices begins:
      1: {}
      2: {1}
      4: {1,1}
      8: {1,1,1}
     16: {1,1,1,1}
     32: {1,1,1,1,1}
     64: {1,1,1,1,1,1}
    128: {1,1,1,1,1,1,1}
    256: {1,1,1,1,1,1,1,1}
    512: {1,1,1,1,1,1,1,1,1}
   1024: {1,1,1,1,1,1,1,1,1,1}
   2048: {1,1,1,1,1,1,1,1,1,1,1}
   4096: {1,1,1,1,1,1,1,1,1,1,1,1}
   8192: {1,1,1,1,1,1,1,1,1,1,1,1,1}
  16384: {1,1,1,1,1,1,1,1,1,1,1,1,1,1}
  17719: {6,10,15}
  32768: {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}
  40807: {6,14,21}
  43381: {6,15,20}
  50431: {10,12,15}
  65536: {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}
		

Crossrefs

These are the Heinz numbers of the partitions counted by A328672.
Terms that are not powers of 2 are A328868.
The strict case is A318716.
The version without global relative primality is A328867.
A ranking using binary indices (instead of prime indices) is A326912.
The version for non-isomorphic multiset partitions is A319759.
The version for divisibility (instead of relative primality) is A328677.
Heinz numbers of relatively prime partitions are A289509.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[10000],#==1||GCD@@primeMS[#]==1&&And[And@@(GCD[##]>1&)@@@Subsets[Union[primeMS[#]],{2}]]&]

A337696 Numbers k such that the k-th composition in standard order (A066099) is strict and pairwise non-coprime, meaning the parts are distinct and any two of them have a common divisor > 1.

Original entry on oeis.org

0, 2, 4, 8, 16, 32, 34, 40, 64, 128, 130, 160, 256, 260, 288, 512, 514, 520, 544, 640, 1024, 2048, 2050, 2052, 2056, 2082, 2088, 2176, 2178, 2208, 2304, 2560, 2568, 2592, 4096, 8192, 8194, 8200, 8224, 8226, 8232, 8320, 8704, 8706, 8832, 10240, 10248, 10368
Offset: 1

Views

Author

Gus Wiseman, Oct 06 2020

Keywords

Comments

Differs from A291165 in having 1090535424, corresponding to the composition (6,10,15).
The k-th composition in standard order (graded reverse-lexicographic, 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. This gives a bijective correspondence between nonnegative integers and integer compositions.

Examples

			The sequence together with the corresponding compositions begins:
       0: ()        512: (10)       2304: (3,9)
       2: (2)       514: (8,2)      2560: (2,10)
       4: (3)       520: (6,4)      2568: (2,6,4)
       8: (4)       544: (4,6)      2592: (2,4,6)
      16: (5)       640: (2,8)      4096: (13)
      32: (6)      1024: (11)       8192: (14)
      34: (4,2)    2048: (12)       8194: (12,2)
      40: (2,4)    2050: (10,2)     8200: (10,4)
      64: (7)      2052: (9,3)      8224: (8,6)
     128: (8)      2056: (8,4)      8226: (8,4,2)
     130: (6,2)    2082: (6,4,2)    8232: (8,2,4)
     160: (2,6)    2088: (6,2,4)    8320: (6,8)
     256: (9)      2176: (4,8)      8704: (4,10)
     260: (6,3)    2178: (4,6,2)    8706: (4,8,2)
     288: (3,6)    2208: (4,2,6)    8832: (4,2,8)
		

Crossrefs

A318719 gives the Heinz numbers of the unordered version, with non-strict version A337694.
A337667 counts the non-strict version.
A337983 counts these compositions, with unordered version A318717.
A051185 counts intersecting set-systems, with spanning case A305843.
A200976 and A328673 count the unordered non-strict version.
A337462 counts pairwise coprime compositions.
A318749 counts pairwise non-coprime factorizations, with strict case A319786.
All of the following pertain to compositions in standard order (A066099):
- A000120 is length.
- A070939 is sum.
- A124767 counts runs.
- A233564 ranks strict compositions.
- A272919 ranks constant compositions.
- A333219 is Heinz number.
- A333227 ranks pairwise coprime compositions, or A335235 if singletons are considered coprime.
- A333228 ranks compositions whose distinct parts are pairwise coprime.
- A335236 ranks compositions neither a singleton nor pairwise coprime.
- A337561 is the pairwise coprime instead of pairwise non-coprime version, or A337562 if singletons are considered coprime.
- A337666 ranks the non-strict version.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    stabQ[u_,Q_]:=And@@Not/@Q@@@Tuples[u,2];
    Select[Range[0,1000],UnsameQ@@stc[#]&&stabQ[stc[#],CoprimeQ]&]

Formula

Intersection of A337666 and A233564.

A338318 Composite numbers whose prime indices are pairwise intersecting (non-coprime).

Original entry on oeis.org

9, 21, 25, 27, 39, 49, 57, 63, 65, 81, 87, 91, 111, 115, 117, 121, 125, 129, 133, 147, 159, 169, 171, 183, 185, 189, 203, 213, 235, 237, 243, 247, 259, 261, 267, 273, 289, 299, 301, 303, 305, 319, 321, 325, 333, 339, 343, 351, 361, 365, 371, 377, 387, 393
Offset: 1

Views

Author

Gus Wiseman, Oct 31 2020

Keywords

Comments

First differs from A322336 in lacking 2535, with prime indices {2,3,6,6}.
First differs from A327685 in having 17719, with prime indices {6,10,15}.
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 pairwise intersecting (non-coprime) partitions with more than one part. 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.

Examples

			The sequence of terms together with their prime indices begins:
      9: {2,2}        121: {5,5}        243: {2,2,2,2,2}
     21: {2,4}        125: {3,3,3}      247: {6,8}
     25: {3,3}        129: {2,14}       259: {4,12}
     27: {2,2,2}      133: {4,8}        261: {2,2,10}
     39: {2,6}        147: {2,4,4}      267: {2,24}
     49: {4,4}        159: {2,16}       273: {2,4,6}
     57: {2,8}        169: {6,6}        289: {7,7}
     63: {2,2,4}      171: {2,2,8}      299: {6,9}
     65: {3,6}        183: {2,18}       301: {4,14}
     81: {2,2,2,2}    185: {3,12}       303: {2,26}
     87: {2,10}       189: {2,2,2,4}    305: {3,18}
     91: {4,6}        203: {4,10}       319: {5,10}
    111: {2,12}       213: {2,20}       321: {2,28}
    115: {3,9}        235: {3,15}       325: {3,3,6}
    117: {2,2,6}      237: {2,22}       333: {2,2,12}
		

Crossrefs

A200976 counts the partitions with these Heinz numbers.
A302696 is the pairwise coprime instead of pairwise non-coprime version.
A337694 includes the primes.
A002808 lists composite numbers.
A318717 counts pairwise intersecting strict partitions.
A328673 counts partitions with pairwise intersecting distinct parts, with Heinz numbers A328867 and restriction to triples A337599 (except n = 3).

Programs

  • Mathematica
    stabstrQ[u_,Q_]:=And@@Not/@Q@@@Tuples[u,2];
    Select[Range[2,100],!PrimeQ[#]&&stabstrQ[PrimePi/@First/@FactorInteger[#],CoprimeQ]&]

Formula

Equals A337694 \ A008578.
Previous Showing 21-29 of 29 results.