A324764 -id:A324764 - cp's OEIS frontend

A306844 Number of anti-transitive rooted trees with n nodes.

1, 1, 2, 3, 7, 14, 36, 83, 212, 532, 1379, 3577, 9444, 25019, 66943, 179994, 487031, 1323706, 3614622, 9907911

Offset: 1

Gus Wiseman, Mar 13 2019

A rooted tree is anti-transitive if the subbranches are disjoint from the branches, i.e., no branch of a branch is a branch.

			The a(1) = 1 through a(6) = 14 anti-transitive rooted trees:
  o  (o)  (oo)   (ooo)    (oooo)     (ooooo)
          ((o))  ((oo))   ((ooo))    ((oooo))
                 (((o)))  (((oo)))   (((ooo)))
                          ((o)(o))   ((o)(oo))
                          ((o(o)))   ((o(oo)))
                          (o((o)))   ((oo(o)))
                          ((((o))))  (o((oo)))
                                     (oo((o)))
                                     ((((oo))))
                                     (((o)(o)))
                                     (((o(o))))
                                     ((o((o))))
                                     (o(((o))))
                                     (((((o)))))

Gus Wiseman, The a(7) = 36 anti-transitive rooted trees.
Gus Wiseman, The a(10) = 532 anti-transitive rooted trees.

Cf. A276625, A279861, A279861, A290689, A290760, A304360.

Cf. A324694, A324695, A324738, A324741, A324743, A324751, A324754, A324756, A324758, A324759, A324764.

rtall[n_]:=Union[Sort/@Join@@(Tuples[rtall/@#]&/@IntegerPartitions[n-1])];
Table[Length[Select[rtall[n],Intersection[Union@@#,#]=={}&]],{n,10}]

a(16)-a(20) from Jinyuan Wang, Jun 20 2020

A324758 Heinz numbers of integer partitions containing no prime indices of the parts.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 16, 17, 19, 20, 21, 22, 23, 25, 27, 29, 31, 32, 33, 34, 35, 37, 40, 41, 43, 44, 46, 47, 49, 50, 51, 53, 57, 59, 61, 62, 63, 64, 65, 67, 68, 71, 73, 77, 79, 80, 81, 82, 83, 85, 87, 88, 89, 91, 92, 93, 94, 95, 97, 99, 100, 101

Offset: 1

Gus Wiseman, Mar 17 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 Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
These could be described as anti-transitive numbers (cf. A290822), as they are numbers x such that if prime(y) divides x and prime(z) divides y, then prime(z) does not divide x.
Also numbers n such that A003963(n) is coprime to n.

			The sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  10: {1,3}
  11: {5}
  13: {6}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  20: {1,1,3}
  21: {2,4}
  22: {1,5}
  23: {9}
  25: {3,3}
  27: {2,2,2}

The subset version is A324741, with maximal case A324743. The strict integer partition version is A324751. The integer partition version is A324756. An infinite version is A324695.

Cf. A000720, A001221, A001462, A007097, A056239, A112798, A276625, A289509, A290822, A304360, A306844, A324742, A324753, A324764.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Intersection[primeMS[#],Union@@primeMS/@primeMS[#]]=={}&]

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

Original entry on oeis.org

1, 1, 2, 2, 4, 3, 7, 7, 9, 11, 16, 16, 24, 25, 34, 39, 50, 54, 70, 79, 96, 111, 135, 152, 186, 208, 249, 285, 335, 377, 448, 506, 588, 664, 777, 873, 1010, 1139, 1309, 1471, 1697, 1890, 2175, 2435, 2772, 3106, 3532, 3941, 4478, 4995, 5643, 6297, 7107, 7897

Offset: 0

Gus Wiseman, Mar 17 2019

nonn

These could be described as anti-transitive integer partitions.

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(8) = 9 integer partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (311)    (33)      (43)       (44)
                    (31)    (11111)  (42)      (52)       (71)
                    (1111)           (51)      (331)      (422)
                                     (222)     (511)      (2222)
                                     (3111)    (31111)    (3311)
                                     (111111)  (1111111)  (5111)
                                                          (311111)
                                                          (11111111)

The subset version is A324741, with maximal case A324743. The strict case is A324751. The Heinz number version is A324758. An infinite version is A324695.

Cf. A000720, A000837, A001462, A051424, A112798, A276625, A304360, A306844, A324764, A324742, A324753.

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

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

Original entry on oeis.org

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}]

A324765 Number of recursively anti-transitive rooted trees with n nodes.

Original entry on oeis.org

1, 1, 2, 3, 6, 11, 26, 52, 119, 266, 618, 1432, 3402, 8093, 19505, 47228, 115244, 282529, 696388, 1723400

Offset: 1

Gus Wiseman, Mar 17 2019

An unlabeled rooted tree is recursively anti-transitive if no branch of a branch of a terminal subtree is a branch of the same subtree.

			The a(1) = 1 through a(6) = 11 recursively anti-transitive rooted trees:
  o  (o)  (oo)   (ooo)    (oooo)     (ooooo)
          ((o))  ((oo))   ((ooo))    ((oooo))
                 (((o)))  (((oo)))   (((ooo)))
                          ((o)(o))   ((o)(oo))
                          (o((o)))   (o((oo)))
                          ((((o))))  (oo((o)))
                                     ((((oo))))
                                     (((o)(o)))
                                     ((o((o))))
                                     (o(((o))))
                                     (((((o)))))

Cf. A000081, A290689, A301700, A304360, A306844, A317787, A318185.
Cf. A324695, A324751, A324756, A324758, A324764, A324766, A324767, A324768.
Cf. A324838, A324840, A324844.

nallt[n_]:=Select[Union[Sort/@Join@@(Tuples[nallt/@#]&/@IntegerPartitions[n-1])],Intersection[Union@@#,#]=={}&];
Table[Length[nallt[n]],{n,10}]

A324743 Number of maximal subsets of {1...n} containing no prime indices of the elements.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 5, 8, 8, 8, 8, 12, 12, 18, 18, 19, 19, 30, 30, 54, 54, 54, 54, 96, 96, 96, 96, 96, 96, 156, 156, 244, 244, 248, 248, 248, 248, 440, 440, 440, 440, 688, 688, 1120, 1120, 1120, 1120, 1864, 1864, 1864, 1864, 1864, 1864, 3664, 3664, 3664, 3664, 3664

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(8) = 8 maximal subsets:
  {}  {1}  {1}  {2}    {1,3}  {1,3}    {1,3}    {1,3,7}  {1,3,7}
           {2}  {1,3}  {2,4}  {1,5}    {1,5}    {1,5,7}  {1,5,7}
                       {3,4}  {3,4}    {2,4,5}  {2,4,5}  {2,4,5,8}
                              {2,4,5}  {3,4,6}  {2,5,7}  {2,5,7,8}
                                       {4,5,6}  {3,4,6}  {3,4,6,8}
                                                {3,6,7}  {3,6,7,8}
                                                {4,5,6}  {4,5,6,8}
                                                {5,6,7}  {5,6,7,8}
An example for n = 15 is {1,5,7,9,13,15}, with prime indices:
  1: {}
  5: {3}
  7: {4}
  9: {2,2}
  13: {6}
  15: {2,3}
None of these prime indices {2,3,4,6} belong to the subset, as required.

Andrew Howroyd, Table of n, a(n) for n = 0..100

The non-maximal case is A324741. The case for subsets of {2...n} is A324763.
Cf. A000720, A001462, A007097, A084422, A085945, A112798, A276625, A290689, A290822, A304360, A306844, A320426, A324764.
Cf. A324695, A324736, A324742, A324744, A324751, A324756, A324758.

maxim[s_]:=Complement[s,Last/@Select[Tuples[s,2],UnsameQ@@#&&SubsetQ@@#&]];
Table[Length[maxim[Select[Subsets[Range[n]],Intersection[#,PrimePi/@First/@Join@@FactorInteger/@#]=={}&]]],{n,0,10}]

pset(n)={my(b=0, f=factor(n)[, 1]); sum(i=1, #f, 1<<(primepi(f[i])))}
a(n)={my(p=vector(n, k, pset(k)), d=0); for(i=1, #p, d=bitor(d, p[i]));
my(ismax(b)=my(e=0); forstep(k=#p, 1, -1, if(bittest(b,k), e=bitor(e,p[k]), if(!bittest(e,k) && !bitand(p[k], b), return(0)) )); 1);
((k, b)->if(k>#p, ismax(b), my(f=!bitand(p[k], b)); if(!f || bittest(d, k), self()(k+1, b)) + if(f, self()(k+1, b+(1<Andrew Howroyd, Aug 26 2019

Terms a(16) and beyond from Andrew Howroyd, Aug 26 2019

A324744 Number of maximal subsets of {1...n} containing no element whose prime indices all belong to the subset.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 4, 5, 6, 8, 8, 11, 11, 22, 22, 22, 22, 28, 28, 44, 44, 52, 52, 76, 76, 88, 88, 96, 96, 184, 184, 240, 240, 264, 264, 296, 296, 592, 592, 592, 592, 728, 728, 1456, 1456, 1456, 1456, 2912, 2912, 3168, 3168, 3168, 3168, 5568, 5568, 5568, 5568

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(1) = 1 through a(8) = 6 maximal subsets:
  {1}  {1}  {2}    {1,3}  {1,3}    {1,3,6}    {3,4,6}    {1,3,6,7}
       {2}  {1,3}  {2,4}  {1,5}    {1,5,6}    {1,3,6,7}  {1,5,6,7}
                   {3,4}  {3,4}    {3,4,6}    {1,5,6,7}  {3,4,6,8}
                          {2,4,5}  {2,4,5,6}  {2,4,5,6}  {3,6,7,8}
                                              {2,5,6,7}  {2,4,5,6,8}
                                                         {2,5,6,7,8}

Andrew Howroyd, Table of n, a(n) for n = 0..100

The non-maximal case is A324738. The case for subsets of {2...n} is A324762.
Cf. A000720, A001462, A007097, A076078, A084422, A085945, A112798, A276625, A290822, A304360, A306844, A320426, A324764.
Cf. A324694, A324736, A324743, A324749, A324754, A324759.

maxim[s_]:=Complement[s,Last/@Select[Tuples[s,2],UnsameQ@@#&&SubsetQ@@#&]];
Table[Length[maxim[Select[Subsets[Range[n]],!MemberQ[#,k_/;SubsetQ[#,PrimePi/@First/@FactorInteger[k]]]&]]],{n,0,10}]

pset(n)={my(b=0, f=factor(n)[, 1]); sum(i=1, #f, 1<<(primepi(f[i])))}
a(n)={my(p=vector(n, k, if(k==1, 1, pset(k))), d=0); for(i=1, #p, d=bitor(d, p[i]));
my(ismax(b)=for(k=1, #p, if(!bittest(b,k) && bitnegimply(p[k], b), my(e=bitor(b, 1<#p, ismax(b), my(f=bitnegimply(p[k], b)); if(!f || bittest(d, k), self()(k+1, b)) + if(f, self()(k+1, b+(1<Andrew Howroyd, Aug 27 2019

Terms a(16) and beyond from Andrew Howroyd, Aug 27 2019

A324742 Number of subsets of {2...n} containing no prime indices of the elements.

Original entry on oeis.org

1, 2, 3, 6, 10, 16, 24, 48, 84, 144, 228, 420, 648, 1080, 1800, 3600, 5760, 11136, 16704, 31104, 53568, 90624, 136896, 269952, 515712, 862080, 1708800, 3171840, 4832640, 9325440, 14890752, 29781504, 52245504, 88418304, 166017024, 331628544, 497645568, 829409280

Offset: 1

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(1) = 1 through a(6) = 16 subsets:
  {}  {}   {}   {}     {}       {}
      {2}  {2}  {2}    {2}      {2}
           {3}  {3}    {3}      {3}
                {4}    {4}      {4}
                {2,4}  {5}      {5}
                {3,4}  {2,4}    {6}
                       {2,5}    {2,4}
                       {3,4}    {2,5}
                       {4,5}    {3,4}
                       {2,4,5}  {3,6}
                                {4,5}
                                {4,6}
                                {5,6}
                                {2,4,5}
                                {3,4,6}
                                {4,5,6}
An example for n = 20 is {4,5,6,12,17,18,19}, with prime indices:
   4: {1,1}
   5: {3}
   6: {1,2}
  12: {1,1,2}
  17: {7}
  18: {1,2,2}
  19: {8}
None of these prime indices {1,2,3,7,8} belong to the set, as required.

Andrew Howroyd, Table of n, a(n) for n = 1..100

The maximal case is A324763. The version for subsets of {1...n} is A324741. The strict integer partition version is A324752. The integer partition version is A324757. The Heinz number version is A324761. An infinite version is A304360.
Cf. A000720, A001462, A007097, A076078, A084422, A085945, A112798, A276625, A290689, A290822, A306844, A324764.
Cf. A324695, A324737, A324743, A324751, A324756, A324758.

Table[Length[Select[Subsets[Range[2,n]],Intersection[#,PrimePi/@First/@Join@@FactorInteger/@#]=={}&]],{n,10}]

pset(n)={my(b=0,f=factor(n)[,1]); sum(i=1, #f, 1<<(primepi(f[i])))}
a(n)={my(p=vector(n-1,k,pset(k+1)>>1), d=0); for(i=1, #p, d=bitor(d, p[i]));
((k,b)->if(k>#p, 1, my(t=self()(k+1,b)); if(!bitand(p[k], b), t+=if(bittest(d,k), self()(k+1, b+(1<Andrew Howroyd, Aug 16 2019

Terms a(21) and beyond from Andrew Howroyd, Aug 16 2019

A324763 Number of maximal subsets of {2...n} containing no prime indices of the elements.

Original entry on oeis.org

1, 1, 2, 2, 2, 3, 6, 6, 6, 6, 10, 10, 16, 16, 16, 16, 24, 24, 48, 48, 48, 48, 84, 84, 84, 84, 84, 84, 144, 144, 228, 228, 228, 228, 228, 228, 420, 420, 420, 420, 648, 648, 1080, 1080, 1080, 1080, 1800, 1800, 1800, 1800, 1800, 1800, 3600, 3600, 3600, 3600, 3600

Offset: 1

Gus Wiseman, Mar 17 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(9) = 6 subsets:
  {}  {2}  {2}  {2,4}  {3,4}    {2,4,5}  {2,4,5}  {2,4,5,8}  {2,4,5,8}
           {3}  {3,4}  {2,4,5}  {3,4,6}  {2,5,7}  {2,5,7,8}  {2,5,7,8}
                                {4,5,6}  {3,4,6}  {3,4,6,8}  {3,4,6,8,9}
                                         {3,6,7}  {3,6,7,8}  {3,6,7,8,9}
                                         {4,5,6}  {4,5,6,8}  {4,5,6,8,9}
                                         {5,6,7}  {5,6,7,8}  {5,6,7,8,9}

Andrew Howroyd, Table of n, a(n) for n = 1..100

The non-maximal version is A324742.
The version for subsets of {1...n} is A324741.
An infinite version is A304360.
Cf. A076078, A084422, A085945, A112798, A276625, A306844, A324764.
Cf. A324695, A324743, A324751, A324756, A324758, A324762.

maxim[s_]:=Complement[s,Last/@Select[Tuples[s,2],UnsameQ@@#&&SubsetQ@@#&]];
Table[Length[maxim[Select[Subsets[Range[2,n]],Intersection[#,PrimePi/@First/@Join@@FactorInteger/@#]=={}&]]],{n,10}]

pset(n)={my(b=0, f=factor(n)[, 1]); sum(i=1, #f, 1<<(primepi(f[i])))}
a(n)={my(p=vector(n-1, k, pset(k+1)>>1), d=0); for(i=1, #p, d=bitor(d, p[i]));
my(ismax(b)=my(e=0); forstep(k=#p, 1, -1, if(bittest(b,k), e=bitor(e,p[k]), if(!bittest(e,k) && !bitand(p[k], b), return(0)) )); 1);
((k, b)->if(k>#p, ismax(b), my(f=!bitand(p[k], b)); if(!f || bittest(d, k), self()(k+1, b)) + if(f, self()(k+1, b+(1<Andrew Howroyd, Aug 26 2019

Terms a(16) and beyond from Andrew Howroyd, Aug 26 2019

A358453 Number of transitive ordered rooted trees with n nodes.

Original entry on oeis.org

1, 1, 1, 2, 4, 8, 17, 37, 83, 190, 444, 1051, 2518, 6090, 14852

Offset: 1

Gus Wiseman, Nov 18 2022

We define an unlabeled ordered rooted tree to be transitive if every branch of a branch of the root already appears farther to the left as a branch of the root. An undirected version is A358454.

			The a(1) = 1 through a(7) = 17 trees:
  o  (o)  (oo)  (ooo)   (oooo)   (ooooo)    (oooooo)
                (o(o))  (o(o)o)  (o(o)oo)   (o(o)ooo)
                        (o(oo))  (o(oo)o)   (o(oo)oo)
                        (oo(o))  (o(ooo))   (o(ooo)o)
                                 (oo(o)o)   (o(oooo))
                                 (oo(oo))   (oo(o)oo)
                                 (ooo(o))   (oo(oo)o)
                                 (o(o)(o))  (oo(ooo))
                                            (ooo(o)o)
                                            (ooo(oo))
                                            (oooo(o))
                                            (o(o)(o)o)
                                            (o(o)(oo))
                                            (o(o)o(o))
                                            (o(oo)(o))
                                            (oo(o)(o))
                                            (o(o)((o)))

The unordered version is A290689, ranked by A290822.
The undirected version is A358454, ranked by A358458.
These trees are ranked by A358457.
A000081 counts rooted trees.
A306844 counts anti-transitive rooted trees.
Cf. A318185, A324695, A324751, A324756, A324758, A324764-A324768, A324838, A324840, A324844, A358456.

aot[n_]:=If[n==1,{{}},Join@@Table[Tuples[aot/@c],{c,Join@@Permutations/@IntegerPartitions[n-1]}]];
Table[Length[Select[aot[n],Function[t,And@@Table[Complement[t[[k]],Take[t,k]]=={},{k,Length[t]}]]]],{n,10}]

cp's OEIS Frontend

A306844 Number of anti-transitive rooted trees with n nodes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A324758 Heinz numbers of integer partitions containing no prime indices of the parts.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A324765 Number of recursively anti-transitive rooted trees with n nodes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A324743 Number of maximal subsets of {1...n} containing no prime indices of the elements.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A324744 Number of maximal subsets of {1...n} containing no element whose prime indices all belong to the subset.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A324742 Number of subsets of {2...n} containing no prime indices of the elements.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs