A324696 -id:A324696 - cp's OEIS frontend

A324839 Number of unlabeled rooted identity trees with n nodes where the branches of no branch of the root form a subset of the branches of the root.

1, 0, 1, 1, 2, 3, 8, 16, 35, 74, 166, 367, 831, 1878, 4299, 9857, 22775, 52777, 122957, 287337

Offset: 1

Gus Wiseman, Mar 18 2019

An unlabeled rooted tree is an identity tree if there are no repeated branches directly under the same root.
Also the number of finitary sets with n brackets where no element is also a subset. For example, the a(7) = 8 sets are (o = {}):
  {{{{{{o}}}}}}
  {{{{o,{o}}}}}
  {{{o,{{o}}}}}
  {{o,{{{o}}}}}
  {{o,{o,{o}}}}
  {{{o},{{o}}}}
  {{o},{{{o}}}}
  {{o},{o,{o}}}

			The a(1) = 1 through a(8) = 16 rooted identity trees:
  o  ((o))  (((o)))  ((o(o)))   (((o(o))))   ((o)(o(o)))    (((o))(o(o)))
                     ((((o))))  ((o((o))))   ((o(o(o))))    (((o)(o(o))))
                                (((((o)))))  ((((o(o)))))   (((o(o(o)))))
                                             (((o)((o))))   ((o)((o(o))))
                                             (((o((o)))))   ((o)(o((o))))
                                             ((o)(((o))))   ((o((o(o)))))
                                             ((o(((o)))))   ((o(o)((o))))
                                             ((((((o))))))  ((o(o((o)))))
                                                            (((((o(o))))))
                                                            ((((o)((o)))))
                                                            ((((o((o))))))
                                                            (((o)(((o)))))
                                                            (((o(((o))))))
                                                            ((o)((((o)))))
                                                            ((o((((o))))))
                                                            (((((((o)))))))

Cf. A000081, A290760, A304360, A306844, A317787.

Cf. A324694, A324696, A324704, A324738, A324744, A324758, A324759, A324767, A324770, A324771, A324838, A324840, A324844, A324846.

idall[n_]:=If[n==1,{{}},Select[Union[Sort/@Join@@(Tuples[idall/@#]&/@IntegerPartitions[n-1])],UnsameQ@@#&]];
Table[Length[Select[idall[n],And@@Table[!SubsetQ[#,b],{b,#}]&]],{n,10}]

A317964 Prime numbers in the lexicographically earliest sequence of positive integers whose prime indices are not already in the sequence (A304360).

Original entry on oeis.org

2, 5, 13, 17, 23, 31, 37, 43, 47, 61, 67, 73, 79, 89, 103, 107, 109, 113, 137, 149, 151, 163, 167, 179, 181, 193, 197, 223, 227, 233, 241, 251, 257, 263, 269, 271, 277, 281, 307, 317, 347, 349, 353, 359, 379, 383, 389, 397, 419, 421, 431, 433, 449, 457, 463, 467, 487, 499, 503, 509, 521, 523, 547

Offset: 1

N. J. A. Sloane, Aug 26 2018

nonn

Also primes whose prime index is not in A304360, or is in A324696. A prime index of n is a number m such that prime(m) divides n. - Gus Wiseman, Mar 19 2019

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A000720, A001462, A007097, A060197, A079254, A112798, A276625, A277098, A290822, A304360, A306844.

Cf. A324695, A324698, A324704, A324741, A324756, A324758, A324765, A324766, A324768.

count:= 0:
P:= {}: A:= NULL:
for n from 2 while count < 100 do
  pn:= numtheory:-factorset(n);
  if pn intersect P = {} then
    P:= P union {ithprime(n)};
    if isprime(n) then A:= A, n; count:= count+1 fi;
  fi
od:
A; # Robert Israel, Aug 26 2018

aQ[n_]:=n==1||Or@@Cases[FactorInteger[n],{p_,_}:>!aQ[PrimePi[p]]];
Prime[Select[Range[100],aQ]] (* Gus Wiseman, Mar 19 2019 *)

A306719 Lexicographically earliest sequence containing 2 and all positive integers n such that the prime indices of n - 1 already belong to the sequence.

Original entry on oeis.org

2, 4, 8, 10, 20, 22, 28, 30, 50, 58, 64, 72, 80, 82, 88, 108, 114, 134, 148, 172, 190, 204, 214, 230, 238, 244, 262, 272, 312, 322, 340, 344, 360, 362, 400, 410, 422, 442, 458, 498, 514, 552, 554, 568, 594, 610, 620, 640, 688, 712, 730, 750, 758, 784, 792, 814

Offset: 1

Gus Wiseman, Mar 11 2019

nonn

A self-describing sequence, similar to A304360.

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.

Prime indices of A324699.
Cf. A000002, A000720, A001222, A001462, A007097, A055396, A061395, A079000, A079254, A109298, A112798, A276625, A277098, A304360.
Cf. A324694, A324695, A324696, A324697, A324698, A324700, A324701, A324702, A324703, A324704, A324705.

aQ[n_]:=Switch[n,0,False,2,True,,And@@Cases[FactorInteger[n-1],{p,k_}:>aQ[PrimePi[p]]]];
Select[Range[0,100],aQ]

a(n) = A324699(n) + 1.

cp's OEIS Frontend

A324839 Number of unlabeled rooted identity trees with n nodes where the branches of no branch of the root form a subset of the branches of the root.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A317964 Prime numbers in the lexicographically earliest sequence of positive integers whose prime indices are not already in the sequence (A304360).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

A306719 Lexicographically earliest sequence containing 2 and all positive integers n such that the prime indices of n - 1 already belong to the sequence.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula