A276625 -id:A276625 - cp's OEIS frontend

A324694 Lexicographically earliest sequence of positive integers divisible by prime(m) for some m not already in the sequence.

2, 4, 5, 6, 8, 10, 12, 14, 15, 16, 17, 18, 20, 22, 23, 24, 25, 26, 28, 30, 31, 32, 34, 35, 36, 38, 40, 41, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 58, 60, 62, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 78, 80, 82, 84, 85, 86, 88, 90, 92, 93, 94, 95

Offset: 1

Gus Wiseman, Mar 10 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.

			The sequence of terms together with their prime indices begins:
   2: {1}
   4: {1,1}
   5: {3}
   6: {1,2}
   8: {1,1,1}
  10: {1,3}
  12: {1,1,2}
  14: {1,4}
  15: {2,3}
  16: {1,1,1,1}
  17: {7}
  18: {1,2,2}
  20: {1,1,3}
  22: {1,5}
  23: {9}
  24: {1,1,1,2}
  25: {3,3}
  26: {1,6}
  28: {1,1,4}
  30: {1,2,3}

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

aQ[n_]:=!And@@Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>aQ[PrimePi[p]]];
Select[Range[100],aQ]

A300660 Number of unlabeled rooted phylogenetic trees with n (leaf-) nodes such that for each inner node all children are either leaves or roots of distinct subtrees.

Original entry on oeis.org

0, 1, 1, 2, 3, 6, 13, 30, 72, 182, 467, 1222, 3245, 8722, 23663, 64758, 178459, 494922, 1380105, 3867414, 10884821, 30756410, 87215419, 248117618, 707952902, 2025479210, 5809424605, 16700811214, 48113496645, 138884979562, 401645917999, 1163530868090

Offset: 0

Alois P. Heinz, Jun 18 2018

From Gus Wiseman, Jul 31 2018 and Feb 06 2020: (Start)
a(n) is the number of lone-child-avoiding rooted identity trees whose leaves form an integer partition of n. For example, the following are the a(6) = 13 lone-child-avoiding rooted identity trees whose leaves form an integer partition of 6.
  6,
  (15),
  (24),
  (123), (1(23)), (2(13)), (3(12)),
  (1(14)),
  (1(1(13))),
  (12(12)), (1(2(12))), (2(1(12))),
  (1(1(1(12)))).
(End)

			:   a(3) = 2:        :   a(4) = 3:                      :
:      o       o     :        o         o        o      :
:     / \     /|\    :       / \       / \     /( )\    :
:    o   N   N N N   :      o   N     o   N   N N N N   :
:   ( )              :     / \       /|\                :
:   N N              :    o   N     N N N               :
:                    :   ( )                            :
:                    :   N N                            :
From _Gus Wiseman_, Feb 06 2020: (Start)
The a(2) = 1 through a(6) = 13 unlabeled rooted phylogenetic semi-identity trees:
  (oo) (ooo)     (oooo)         (ooooo)             (oooooo)
       ((o)(oo)) ((o)(ooo))     ((o)(oooo))         ((o)(ooooo))
                 ((o)((o)(oo))) ((oo)(ooo))         ((oo)(oooo))
                                ((o)((o)(ooo)))     ((o)(oo)(ooo))
                                ((oo)((o)(oo)))     (((o)(oo))(ooo))
                                ((o)((o)((o)(oo)))) ((o)((o)(oooo)))
                                                    ((o)((oo)(ooo)))
                                                    ((oo)((o)(ooo)))
                                                    ((o)(oo)((o)(oo)))
                                                    ((o)((o)((o)(ooo))))
                                                    ((o)((oo)((o)(oo))))
                                                    ((oo)((o)((o)(oo))))
                                                    ((o)((o)((o)((o)(oo)))))
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..2079
Wikipedia, Phylogenetic tree
Gus Wiseman, Sequences counting series-reduced and lone-child-avoiding trees by number of vertices.
Index entries for sequences related to rooted trees
Index entries for sequences related to trees

Cf. A000081, A004111, A141268, A289501, A301467.
Cf. A000669, A001678, A005804, A292504, A300660, A316653, A316654, A316656.
The locally disjoint case is A316694.
Cf. A276625, A306200, A319312, A331679, A331686, A331875.

b:= proc(n,i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(b(n-i*j, i-1)*binomial(a(i), j), j=0..n/i)))
    end:
a:= n-> `if`(n=0, 0, 1+b(n, n-1)):
seq(a(n), n=0..30);

b[0, ] = 1; b[, _?NonPositive] = 0;
b[n_, i_] := b[n, i] = Sum[b[n-i*j, i-1]*Binomial[a[i], j], {j, 0, n/i}];
a[0] = 0; a[n_] := a[n] = 1 + b[n, n-1];
Table[a[n], {n, 0, 31}] (* Jean-François Alcover, May 03 2019, from Maple *)
ursit[n_]:=Prepend[Join@@Table[Select[Union[Sort/@Tuples[ursit/@ptn]],UnsameQ@@#&],{ptn,Select[IntegerPartitions[n],Length[#]>1&]}],n];
Table[Length[ursit[n]],{n,10}] (* Gus Wiseman, Feb 06 2020 *)

a(n) ~ c * d^n / n^(3/2), where d = 3.045141208159736483720243229947630323380565686... and c = 0.2004129296838557718008171812000512670126... - Vaclav Kotesovec, Aug 27 2018

A302494 Products of distinct primes of squarefree index.

Original entry on oeis.org

1, 2, 3, 5, 6, 10, 11, 13, 15, 17, 22, 26, 29, 30, 31, 33, 34, 39, 41, 43, 47, 51, 55, 58, 59, 62, 65, 66, 67, 73, 78, 79, 82, 83, 85, 86, 87, 93, 94, 101, 102, 109, 110, 113, 118, 123, 127, 129, 130, 134, 137, 139, 141, 143, 145, 146, 149, 155, 157, 158, 163

Offset: 1

Gus Wiseman, Apr 08 2018

nonn

A prime index of n is a number m such that prime(m) divides n.

			Entry A302242 describes a correspondence between positive integers and multiset multisystems. In this case it gives the following sequence of set systems.
01: {}
02: {{}}
03: {{1}}
05: {{2}}
06: {{},{1}}
10: {{},{2}}
11: {{3}}
13: {{1,2}}
15: {{1},{2}}
17: {{4}}
22: {{},{3}}
26: {{},{1,2}}
29: {{1,3}}
30: {{},{1},{2}}
31: {{5}}
33: {{1},{3}}
34: {{},{4}}
39: {{1},{1,2}}

Cf. A000961, A001222, A003963, A005117, A007716, A056239, A270995, A275024, A276625, A277098, A279785, A281113, A296120, A301754, A302242, A302243.

Select[Range[100],Or[#===1,SquareFreeQ[#]&&And@@SquareFreeQ/@PrimePi/@FactorInteger[#][[All,1]]]&]

is(n) = if(bigomega(n)!=omega(n), return(0), my(f=factor(n)[, 1]~); for(k=1, #f, if(!issquarefree(primepi(f[k])) && primepi(f[k])!=1, return(0)))); 1 \\ Felix Fröhlich, Apr 10 2018

A061773 Triangle in which n-th row lists Matula-Goebel numbers for all rooted trees with n nodes.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, 15, 18, 20, 21, 22, 23, 24, 26, 28, 29, 31, 32, 34, 37, 38, 41, 43, 53, 59, 67, 25, 27, 30, 33, 35, 36, 39, 40, 42, 44, 46, 47, 48, 49, 51, 52, 56, 57, 58, 61, 62, 64, 68, 71, 73, 74, 76, 79, 82, 83, 86, 89, 101, 106

Offset: 1

N. J. A. Sloane, Jun 22 2001

Let p(1)=2, ... denote the primes. The label f(T) for a rooted tree T is 1 if T has 1 node, otherwise f(T) = Product p(f(T_i)) where the T_i are the subtrees obtained by deleting the root and the edges adjacent to it.
n-th row has A000081(n) terms.
First entry in row n is A005517(n).
Last entry in row n is A005518(n).
The Maple program yields row n after defining F = A005517(n) and L = A005518(n).

			The labels for the rooted trees with at most 4 nodes are as follows (x is the root):
                                         o
                                         |
               o         o        o   o  o
               |          \        \ /   |
     o  o   o  o  o o o    o   o    o    o
     |   \ /   |   \|/      \ /     |    |
  x  x    x    x    x        x      x    x
  1  2    4    3    8        6      7    5 (label)
Triangle begins:
1;
2;
3,4;
5,6,7,8;
9,10,11,12,13,14,16,17,19;
15,18,20,21,22,23,24,26,28,29,31,32,34,37,38,41,43,53,59,67;
25,27,30,33,35,36,39,40,42,44,46,47,48,49,51,52,56,57,58,61,62,64,68,\
71,73,74,76,79,82,83,86,89,101,106,107,109,118,127,131,134,139,157,163,\
179,191,241,277,331;
...
Triangle of rooted trees represented as finitary multisets begins:
(),
(()),
((())), (()()),
(((()))), (()(())), ((()())), (()()()),
((())(())), (()((()))), ((((())))), (()()(())), ((()(()))), (()(()())), (()()()()), (((()()))), ((()()())). - _Gus Wiseman_, Dec 21 2016

Alois P. Heinz, Rows n = 1..12, flattened
F. Goebel, On a 1-1-correspondence between rooted trees and natural numbers, J. Combin. Theory, B 29 (1980), 141-143.
I. Gutman and A. Ivic, On Matula numbers, Discrete Math., 150, 1996, 131-142.
D. Matula, A natural rooted tree enumeration by prime factorization, SIAM Rev. 10 (1968) 273.
Kevin Ryde, PARI/GP code calculating rows
Gus Wiseman, Matula-Goebel trees triangle illustration n=1..6
Index entries for sequences related to Matula-Goebel numbers
Index entries for sequences that are permutations of the natural numbers
Index entries for sequences related to rooted trees
Index entries for sequences related to trees

Cf. A061775 (number of nodes), A000081 (row lengths), A005517 (row minimum), A005518 (row maximum), A214572 (row n=8).
Cf. A347620 (inverse permutation).
Cf. A276625, A279065, A279614.

n := 8: F := 45: L := 2221: with(numtheory): N := proc (m) local r, s: r := proc (m) options operator, arrow: op(1, factorset(m)) end proc: s := proc (m) options operator, arrow: m/r(m) end proc: if m = 1 then 1 elif bigomega(m) = 1 then 1+N(pi(m)) else N(r(m))+N(s(m))-1 end if end proc: A := {}: for k from F to L do if N(k) = n then A := `union`(A, {k}) else  end if end do: A;

F[n_] := F[n] = Which[n == 1, 1, n == 2, 2, Mod[n, 3] == 0, 3*5^(n/3-1), Mod[n, 3] == 1, 5^(n/3-1/3), True, 9*5^(n/3-5/3)]; L[n_] := L[n] = Switch[n, 1, 1, 2, 2, 3, 4, 4, 8, , Prime[L[n-1]]]; r[m] := FactorInteger[m][[1, 1]]; s[m_] := m/r[m]; NN[m_] := NN[m] = Which[m == 1, 1, PrimeOmega[m] == 1, 1+NN[PrimePi[m]], True, NN[r[m]]+NN[s[m]]-1]; row[n_] := Module[{A, k}, A = {}; For[k = F[n], k <= L[n], k++, If[NN[k] == n, A = Union[A, {k}]]]; A]; Table[row[n], {n, 1, 8}] // Flatten (* Jean-François Alcover, Mar 06 2014, after Maple *)
nn=8;MGweight[n_]:=If[n===1,1,1+Total[Cases[FactorInteger[n],{p_,k_}:>k*MGweight[PrimePi[p]]]]];
Take[GatherBy[Range[Switch[nn,1,1,2,2,3,4,,Nest[Prime,8,nn-4]]],MGweight],nn] (* _Gus Wiseman, Dec 21 2016 *)

PARI
```
\\ See links.
```

More terms from Emeric Deutsch, May 01 2004

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

A290760 Matula-Goebel numbers of transitive rooted identity trees (or transitive finitary sets).

Original entry on oeis.org

1, 2, 6, 30, 78, 330, 390, 870, 1410, 3198, 3390, 4290, 7878, 9570, 10230, 11310, 13026, 15510, 15990, 18330, 26070, 30966, 37290, 39390, 40890, 44070, 45210, 65130, 84810, 94830, 98310, 104610, 122070, 124410, 132990, 154830, 159330, 175890, 198330, 201630

Offset: 1

Gus Wiseman, Oct 19 2017

nonn

A rooted tree is transitive if every terminal subtree is a branch of the root. A finitary set is transitive if every element is also a subset.

			Let o = {}. The sequence of transitive finitary sets begins:
1     o
2     {o}
6     {o,{o}}
30    {o,{o},{{o}}}
78    {o,{o},{o,{o}}}
330   {o,{o},{{o}},{{{o}}}}
390   {o,{o},{{o}},{o,{o}}}
870   {o,{o},{{o}},{o,{{o}}}}
1410  {o,{o},{{o}},{{o},{{o}}}}
3198  {o,{o},{o,{o}},{{o,{o}}}}
3390  {o,{o},{{o}},{o,{o},{{o}}}}
4290  {o,{o},{{o}},{{{o}}},{o,{o}}}
7878  {o,{o},{o,{o}},{o,{o,{o}}}}
9570  {o,{o},{{o}},{{{o}}},{o,{{o}}}}
10230 {o,{o},{{o}},{{{o}}},{{{{o}}}}}
11310 {o,{o},{{o}},{o,{o}},{o,{{o}}}}
13026 {o,{o},{o,{o}},{{o},{o,{o}}}}
15510 {o,{o},{{o}},{{{o}}},{{o},{{o}}}}
15990 {o,{o},{{o}},{o,{o}},{{o,{o}}}}
18330 {o,{o},{{o}},{o,{o}},{{o},{{o}}}}

Cf. A000081, A001192, A004111, A007097, A076146, A276625, A279861, A290689, A290822.

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
finitaryQ[n_]:=finitaryQ[n]=Or[n===1,With[{m=primeMS[n]},{UnsameQ@@m,finitaryQ/@m}]/.List->And];
subprimes[n_]:=If[n===1,{},Union@@Cases[FactorInteger[n],{p_,_}:>FactorInteger[PrimePi[p]][[All,1]]]];
transitaryQ[n_]:=Divisible[n,Times@@subprimes[n]];
nn=100000;Fold[Select,Range[nn],{finitaryQ,transitaryQ}]

A279861 Number of transitive finitary sets with n brackets. Number of transitive rooted identity trees with n nodes.

Original entry on oeis.org

1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 2, 1, 2, 2, 2, 5, 4, 6, 8, 10, 14, 23, 26, 34, 46, 64, 81, 115, 158, 199, 277, 376, 505, 684, 934, 1241, 1711, 2300, 3123, 4236, 5763, 7814, 10647, 14456, 19662

Offset: 1

Gus Wiseman, Dec 21 2016

nonn

A finitary set is transitive if every element is also a subset. Transitive sets are also called full sets.

			Sequence of transitive finitary sets begins:
1  ()
2  (())
4  (()(()))
7  (()(())((())))
8  (()(())(()(())))
11 (()(())((()))(((()))))
   (()(())((()))(()(())))
12 (()(())((()))(()((()))))
13 (()(())((()))((())((()))))
   (()(())(()(()))((()(()))))
14 (()(())((()))(()(())((()))))
   (()(())(()(()))(()(()(()))))
15 (()(())((()))(((())))(()(())))
   (()(())(()(()))((())(()(()))))
16 (()(())((()))(((())))((((())))))
   (()(())((()))(((())))(()((()))))
   (()(())((()))(()(()))(()((()))))
   (()(())((()))(()(()))((()(()))))
   (()(())(()(()))(()(())(()(()))))
17 (()(())((()))(((())))(()(((())))))
   (()(())((()))(((())))((())((()))))
   (()(())((()))(()(()))(()(()(()))))
   (()(())((()))(()(()))((())((()))))
18 (()(())((()))(((())))((())(((())))))
   (()(())((()))(((())))(()(())((()))))
   (()(())((()))(()(()))((())(()(()))))
   (()(())((()))(()(()))(()(())((()))))
   (()(())((()))((()((()))))(()((()))))
   (()(())((()))(()((())))((())((()))))

Wikipedia, Transitive set
Gus Wiseman, Transitive rooted identity trees example n=23

Cf. A001192, A004111, A061773, A279614, A276625, A279065, A279863.

transfins[n_]:=transfins[n]=If[n===1,{{}},Select[Union@@FixedPointList[Complement[Union@@Function[fin,Cases[Complement[Subsets[fin],fin],sub_:>With[{nov=Sort[Append[fin,sub]]},nov/;Count[nov,_List,{0,Infinity}]<=n]]]/@#,#]&,Array[transfins,n-1,1,Union]],Count[#,_List,{0,Infinity}]===n&]];
Table[Length[transfins[n]],{n,20}]

A306200 Number of unlabeled rooted semi-identity trees with n nodes.

Original entry on oeis.org

0, 1, 1, 2, 4, 8, 18, 41, 98, 237, 591, 1488, 3805, 9820, 25593, 67184, 177604, 472177, 1261998, 3388434, 9136019, 24724904, 67141940, 182892368, 499608724, 1368340326, 3756651116, 10336434585, 28499309291, 78727891420, 217870037932, 603934911859, 1676720329410

Offset: 0

Gus Wiseman, Jan 29 2019

nonn

A rooted tree is a semi-identity tree if the non-leaf branches of the root are all distinct and are themselves semi-identity trees.

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

Alois P. Heinz, Table of n, a(n) for n = 0..2166

Cf. A000081, A004111, A276625, A301700, A306201, A316471, A316474, A317708, A317712, A317718.

b:= proc(n, i) option remember; `if`(n=0 or i=1, 1,
      add(b(n-i*j, i-1)*binomial(a(i), j), j=0..n/i))
    end:
a:= n-> `if`(n=0, 0, b(n-1$2)):
seq(a(n), n=0..35);  # Alois P. Heinz, Jan 29 2019

ursit[n_]:=Join@@Table[Select[Union[Sort/@Tuples[ursit/@ptn]],UnsameQ@@DeleteCases[#,{}]&],{ptn,IntegerPartitions[n-1]}];
Table[Length[ursit[n]],{n,10}]
(* Second program: *)
b[n_, i_] := b[n, i] = If[n == 0 || i == 1, 1,
     Sum[b[n - i*j, i - 1]*Binomial[a[i], j], {j, 0, n/i}]];
a[n_] := If[n == 0, 0, b[n - 1, n - 1]];
a /@ Range[0, 35] (* Jean-François Alcover, May 10 2021, after Alois P. Heinz *)

More terms from Alois P. Heinz, Jan 29 2019

A324696 Lexicographically earliest sequence containing 1 and all numbers divisible by prime(m) for some m not already in the sequence.

Original entry on oeis.org

1, 3, 6, 7, 9, 11, 12, 14, 15, 18, 19, 21, 22, 24, 27, 28, 29, 30, 33, 35, 36, 38, 39, 41, 42, 44, 45, 48, 49, 51, 53, 54, 55, 56, 57, 58, 59, 60, 63, 66, 69, 70, 71, 72, 75, 76, 77, 78, 81, 82, 83, 84, 87, 88, 90, 91, 93, 95, 96, 97, 98, 99, 101, 102, 105

Offset: 1

Gus Wiseman, Mar 10 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.

			The sequence of terms together with their prime indices begins:
   1: {}
   3: {2}
   6: {1,2}
   7: {4}
   9: {2,2}
  11: {5}
  12: {1,1,2}
  14: {1,4}
  15: {2,3}
  18: {1,2,2}
  19: {8}
  21: {2,4}
  22: {1,5}
  24: {1,1,1,2}
  27: {2,2,2}
  28: {1,1,4}
  29: {10}
  30: {1,2,3}
  33: {2,5}
  35: {3,4}
  36: {1,1,2,2}

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

aQ[n_]:=n==1||Or@@Cases[FactorInteger[n],{p_,k_}:>!aQ[PrimePi[p]]];
Select[Range[100],aQ]

cp's OEIS Frontend

A324694 Lexicographically earliest sequence of positive integers divisible by prime(m) for some m not already in the sequence.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A300660 Number of unlabeled rooted phylogenetic trees with n (leaf-) nodes such that for each inner node all children are either leaves or roots of distinct subtrees.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A302494 Products of distinct primes of squarefree index.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

A061773 Triangle in which n-th row lists Matula-Goebel numbers for all rooted trees with n nodes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

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

A290760 Matula-Goebel numbers of transitive rooted identity trees (or transitive finitary sets).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A279861 Number of transitive finitary sets with n brackets. Number of transitive rooted identity trees with n nodes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs