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.

Showing 1-4 of 4 results.

A322335 Number of 2-edge-connected integer partitions of n.

Original entry on oeis.org

0, 0, 0, 1, 0, 3, 0, 4, 2, 7, 0, 13, 0, 15, 8, 21, 1, 37, 2, 45, 18, 58, 8, 95, 19, 109, 45, 150, 38, 232, 59, 268, 129, 357, 155, 523, 203, 633, 359, 852, 431, 1185, 609, 1464, 969
Offset: 1

Views

Author

Gus Wiseman, Dec 04 2018

Keywords

Comments

First differs from A108572 at a(17) = 1, A108572(17) = 0.
An integer partition is 2-edge-connected if the hypergraph of prime factorizations of its parts is connected and cannot be disconnected by removing any single part. For example (6,6,3,2) is 2-edge-connected but (6,3,2) is not.

Examples

			The a(14) = 15 2-edge-connected integer partitions of 14:
  (7,7)   (6,4,4)   (4,4,4,2)  (4,4,2,2,2)  (4,2,2,2,2,2)  (2,2,2,2,2,2,2)
  (8,6)   (6,6,2)   (6,4,2,2)  (6,2,2,2,2)
  (10,4)  (8,4,2)   (8,2,2,2)
  (12,2)  (10,2,2)
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]];
    twoedQ[sys_]:=And[Length[csm[sys]]==1,And@@Table[Length[csm[Delete[sys,i]]]==1,{i,Length[sys]}]];
    Table[Length[Select[IntegerPartitions[n],twoedQ[primeMS/@#]&]],{n,30}]

Extensions

a(42)-a(45) from Jinyuan Wang, Jun 20 2020

A327685 Nonprime numbers whose prime indices have a common divisor > 1.

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, 399
Offset: 1

Views

Author

Gus Wiseman, Sep 22 2019

Keywords

Comments

First differs from A322336 in lacking 2535 = prime(2)*prime(3)*prime(6)^2.
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. Heinz numbers of integer partitions with a common divisor > 1 are A318978, and the enumeration of these partitions by sum is A108572.

Examples

			The sequence of terms together with their prime indices begins:
    9: {2,2}
   21: {2,4}
   25: {3,3}
   27: {2,2,2}
   39: {2,6}
   49: {4,4}
   57: {2,8}
   63: {2,2,4}
   65: {3,6}
   81: {2,2,2,2}
   87: {2,10}
   91: {4,6}
  111: {2,12}
  115: {3,9}
  117: {2,2,6}
  121: {5,5}
  125: {3,3,3}
  129: {2,14}
  133: {4,8}
  147: {2,4,4}
		

Crossrefs

Programs

  • Mathematica
    Select[Range[100],#>1&&!PrimeQ[#]&&GCD@@PrimePi/@First/@FactorInteger[#]>1&]

Formula

Complement of A000040 in A318978.

A338552 Non-powers of primes whose prime indices have a common divisor > 1.

Original entry on oeis.org

21, 39, 57, 63, 65, 87, 91, 111, 115, 117, 129, 133, 147, 159, 171, 183, 185, 189, 203, 213, 235, 237, 247, 259, 261, 267, 273, 299, 301, 303, 305, 319, 321, 325, 333, 339, 351, 365, 371, 377, 387, 393, 399, 417, 427, 441, 445, 453, 477, 481, 489, 497, 507
Offset: 1

Views

Author

Gus Wiseman, Nov 03 2020

Keywords

Comments

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 non-constant, non-relatively prime partitions. 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:
     21: {2,4}      183: {2,18}       305: {3,18}
     39: {2,6}      185: {3,12}       319: {5,10}
     57: {2,8}      189: {2,2,2,4}    321: {2,28}
     63: {2,2,4}    203: {4,10}       325: {3,3,6}
     65: {3,6}      213: {2,20}       333: {2,2,12}
     87: {2,10}     235: {3,15}       339: {2,30}
     91: {4,6}      237: {2,22}       351: {2,2,2,6}
    111: {2,12}     247: {6,8}        365: {3,21}
    115: {3,9}      259: {4,12}       371: {4,16}
    117: {2,2,6}    261: {2,2,10}     377: {6,10}
    129: {2,14}     267: {2,24}       387: {2,2,14}
    133: {4,8}      273: {2,4,6}      393: {2,32}
    147: {2,4,4}    299: {6,9}        399: {2,4,8}
    159: {2,16}     301: {4,14}       417: {2,34}
    171: {2,2,8}    303: {2,26}       427: {4,18}
		

Crossrefs

A318978 allows prime powers, counted by A018783, with complement A289509.
A327685 allows nonprime prime powers.
A338330 is the coprime instead of relatively prime version.
A338554 counts the partitions with these Heinz numbers.
A338555 is the complement.
A000740 counts relatively prime compositions.
A000961 lists powers of primes, with complement A024619.
A051424 counts pairwise coprime or singleton partitions.
A108572 counts nontrivial periodic partitions, with Heinz numbers A001597.
A291166 ranks relatively prime compositions, with complement A291165.
A302696 gives the Heinz numbers of pairwise coprime partitions.
A327516 counts pairwise coprime partitions, with Heinz numbers A302696.

Programs

  • Mathematica
    Select[Range[100],!(#==1||PrimePowerQ[#]||GCD@@PrimePi/@First/@FactorInteger[#]==1)&]

Formula

Equals A024619 /\ A318978.
Complement of A000961 \/ A289509.

A338555 Numbers that are either a power of a prime or have relatively prime prime indices.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 64, 66, 67, 68, 69, 70, 71, 72
Offset: 1

Views

Author

Gus Wiseman, Nov 03 2020

Keywords

Comments

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 partitions either constant or relatively prime (A338553). 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.

Crossrefs

A327534 uses primes instead of prime powers.
A338331 is the pairwise coprime version, with complement A338330.
A338552 is the complement.
A338553 counts the partitions with these Heinz numbers.
A000837 counts relatively prime partitions, with Heinz numbers A289509.
A000961 lists powers of primes.
A018783 counts partitions whose prime indices are not relatively prime, with Heinz numbers A318978.
A051424 counts pairwise coprime or singleton partitions.
A291166 ranks relatively prime compositions, with complement A291165.
A327516 counts pairwise coprime partitions, with Heinz numbers A302696.

Programs

  • Mathematica
    Select[Range[100],#==1||PrimePowerQ[#]||GCD@@PrimePi/@First/@FactorInteger[#]==1&]

Formula

Equals A000961 \/ A289509.
Complement of A024619 /\ A318978.
Showing 1-4 of 4 results.