A319137 -id:A319137 - cp's OEIS frontend

A319122 Number of phylogenetic plane trees on n labels.

1, 3, 25, 387, 8521, 241683, 8383705, 343826787, 16273985641, 873119718963, 52360707915385, 3470858539699587, 252000934472119561, 19888355652445884243, 1695252683833578455065, 155208762048402360698787, 15190477481877333732410281, 1582657042668691276257233523

Offset: 1

Gus Wiseman, Sep 11 2018

nonn

A phylogenetic plane tree on n labels is either the set of labels itself or a finite sequence of at least two phylogenetic plane trees, one on each block of an ordered set partition of the labels.

			The a(2) = 3 phylogenetic plane trees are {1,2}, ({1},{2}), ({2},{1}).

Cf. A000108, A000670, A001003, A005804, A074206, A118376, A277130, A281118, A281119, A319137.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
t[n_]:=t[n]=1+Sum[Times@@t/@f,{f,Join@@Permutations/@Select[sps[Range[n]],Length[#]>1&]}];
Array[t,8]

A277130 Number of planar branching factorizations of n.

Original entry on oeis.org

0, 1, 1, 2, 1, 3, 1, 6, 2, 3, 1, 14, 1, 3, 3, 24, 1, 14, 1, 14, 3, 3, 1, 78, 2, 3, 6, 14, 1, 25, 1, 112, 3, 3, 3, 110, 1, 3, 3, 78, 1, 25, 1, 14, 14, 3, 1, 464, 2, 14, 3, 14, 1, 78, 3, 78, 3, 3, 1, 206, 1, 3, 14, 568, 3, 25, 1, 14, 3, 25, 1, 850, 1, 3, 14, 14

Offset: 1

Michel Marcus, Oct 01 2016

nonn

A planar branching factorization of n is either the number n itself or a sequence of at least two planar branching factorizations, one of each factor in an ordered factorization of n. - Gus Wiseman, Sep 11 2018

			From _Gus Wiseman_, Sep 11 2018: (Start)
The a(12) = 14 planar branching factorizations:
  12,
  (2*6), (3*4), (4*3), (6*2), (2*2*3), (2*3*2), (3*2*2),
  (2*(2*3)), (2*(3*2)), (3*(2*2)), ((2*2)*3), ((2*3)*2), ((3*2)*2).
(End)

Daniel Mondot, Table of n, a(n) for n = 1..9999
A. Knopfmacher, M. E. Mays, A survey of factorization counting functions, International Journal of Number Theory, 1(4):563-581,(2005). See page 15.

Cf. A277120.
Cf. A000108, A001055, A074206, A118376, A281113, A319122, A319123.
Cf. A277130, A281118, A281119, A292504, A292505, A295279, A295281, A319136, A319137, A319138.

#include 
#include 
#include 
#define MAX 10000
/* Number of planar branching factorizations of n. */
#define lu unsigned long
lu nbr[MAX]; /* number of branching */
lu a, b, d, e; /* temporary variables */
lu n; lu m, p; // factors of n
lu x; // square root of n
void main(unsigned argc, char *argv[])
{
  memset(nbr, 0, MAX*sizeof(lu));
  for (b=0, n=1; nDaniel Mondot, May 19 2017 */

ordfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#1,d]&)/@ordfacs[n/d],{d,Rest[Divisors[n]]}]]
otfs[n_]:=Prepend[Join@@Table[Tuples[otfs/@f],{f,Select[ordfacs[n],Length[#]>1&]}],n];
Table[Length[otfs[n]],{n,20}] (* Gus Wiseman, Sep 11 2018 *)

a(prime^n) = A118376(n). a(product of n distinct primes) = A319122(n). - Gus Wiseman, Sep 11 2018

Terms a(65) and beyond from Daniel Mondot, May 19 2017

A319138 Number of complete strict planar branching factorizations of n.

Original entry on oeis.org

0, 1, 1, 0, 1, 2, 1, 0, 0, 2, 1, 4, 1, 2, 2, 0, 1, 4, 1, 4, 2, 2, 1, 8, 0, 2, 0, 4, 1, 18, 1, 0, 2, 2, 2, 28, 1, 2, 2, 8, 1, 18, 1, 4, 4, 2, 1, 16, 0, 4, 2, 4, 1, 8, 2, 8, 2, 2, 1, 84, 1, 2, 4, 0, 2, 18, 1, 4, 2, 18, 1, 112, 1, 2, 4, 4, 2, 18, 1, 16, 0, 2, 1

Offset: 1

Gus Wiseman, Sep 11 2018

nonn

A strict planar branching factorization of n is either the number n itself or a sequence of at least two strict planar branching factorizations, one of each factor in a strict ordered factorization of n. A strict planar branching factorization is complete if the leaves are all prime numbers.

			The a(12) = 4 trees: (2*(2*3)), (2*(3*2)), ((2*3)*2), ((3*2)*2).

Cf. A000108, A045778, A074206, A118376, A277130, A281113, A281118, A295279, A295281, A317144, A319122, A319123, A319136, A319137.

ordfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#1,d]&)/@ordfacs[n/d],{d,Rest[Divisors[n]]}]]
sotfs[n_]:=Prepend[Join@@Table[Tuples[sotfs/@f],{f,Select[ordfacs[n],And[Length[#]>1,UnsameQ@@#]&]}],n];
Table[Length[Select[sotfs[n],FreeQ[#,_Integer?(!PrimeQ[#]&)]&]],{n,100}]

a(prime^n) = A000007(n - 1).

a(product of n distinct primes) = A032037(n).

cp's OEIS Frontend

A319122 Number of phylogenetic plane trees on n labels.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A277130 Number of planar branching factorizations of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

C

Mathematica

Formula

Extensions

A319138 Number of complete strict planar branching factorizations of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula