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.

A317707 Number of powerful rooted trees with n nodes.

Original entry on oeis.org

1, 1, 2, 3, 5, 6, 11, 13, 22, 29, 46, 57, 94, 115, 180, 230, 349, 435, 671, 830, 1245, 1572, 2320, 2894, 4287, 5328, 7773, 9752, 14066, 17547, 25328, 31515, 45010, 56289, 79805, 99467, 140778, 175215, 246278, 307273, 429421, 534774, 745776, 927776, 1287038
Offset: 1

Views

Author

Gus Wiseman, Aug 05 2018

Keywords

Comments

An unlabeled rooted tree is powerful if either it is a single node or a single node with a single powerful tree as a branch, or if the branches of the root all appear with multiplicities greater than 1 and are themselves powerful trees.

Examples

			The a(7) = 11 powerful rooted trees:
  ((((((o))))))
  (((((oo)))))
  ((((ooo))))
  ((((o)(o))))
  (((oooo)))
  ((ooooo))
  (((o))((o)))
  ((oo)(oo))
  ((o)(o)(o))
  (oo(o)(o))
  (oooooo)

Links

Crossrefs

Cf. A000081, A001190, A001694, A004111, A301700, A303431, A317102.
Cf. A317705, A317708, A317709, A317710, A317711, A317712, A317718, A317719.

Programs

  • Maple
    h:= proc(n, k, t) option remember; `if`(k=0, binomial(n+t, t),
      `if`(n=0, 0, add(h(n-1, k-j, t+1), j=2..k)))
    end:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(b(n-i*j, i-1)*h(a(i), j, 0), j=0..n/i)))
    end:
a:= proc(n) option remember; `if`(n<2, n, b(n-1$2)+a(n-1)) end:
seq(a(n), n=1..50);  # Alois P. Heinz, Aug 31 2018
  • Mathematica
    purt[n_]:=If[n==1,{{}},Join@@Table[Select[Union[Sort/@Tuples[purt/@ptn]],Or[Length[#]==1,Min@@Length/@Split[#]>1]&],{ptn,IntegerPartitions[n-1]}]];
Table[Length[purt[n]],{n,10}]
(* Second program: *)
h[n_, k_, t_] := h[n, k, t] = If[k == 0, Binomial[n + t, t], If[n == 0, 0, Sum[h[n - 1, k - j, t + 1], {j, 2, k}]]];
b[n_, i_] := b[n, i] = If[n == 0, 1, If[i < 1, 0, Sum[b[n - i*j, i - 1]* h[a[i], j, 0], {j, 0, n/i}]]];
a[n_] := a[n] = If[n < 2, n, b[n - 1, n - 1] + a[n - 1]];
Array[a, 50] (* Jean-François Alcover, May 10 2021, after Alois P. Heinz *)

Extensions

a(27)-a(45) from Alois P. Heinz, Aug 31 2018

A317705 Matula-Goebel numbers of series-reduced powerful rooted trees.

Original entry on oeis.org

1, 4, 8, 16, 32, 49, 64, 128, 196, 256, 343, 361, 392, 512, 784, 1024, 1372, 1444, 1568, 2048, 2401, 2744, 2809, 2888, 3136, 4096, 5488, 5776, 6272, 6859, 8192, 9604, 10976, 11236, 11552, 12544, 16384, 16807, 17161, 17689, 19208, 21952, 22472, 23104, 25088
Offset: 1

Views

Author

Gus Wiseman, Aug 04 2018

Keywords

Comments

A positive integer n is a Matula-Goebel number of a series-reduced powerful rooted tree iff either n = 1 or n is a powerful number (meaning its prime multiplicities are all greater than 1) whose prime indices are all Matula-Goebel numbers of series-reduced powerful rooted trees, where a prime index of n is a number m such that prime(m) divides n.

Examples

			The sequence of Matula-Goebel numbers of series-reduced powerful rooted trees together with the corresponding trees begins:
    1: o
    4: (oo)
    8: (ooo)
   16: (oooo)
   32: (ooooo)
   49: ((oo)(oo))
   64: (oooooo)
  128: (ooooooo)
  196: (oo(oo)(oo))
  256: (oooooooo)
  343: ((oo)(oo)(oo))
  361: ((ooo)(ooo))
  392: (ooo(oo)(oo))
  512: (ooooooooo)
  784: (oooo(oo)(oo))

Links

Crossrefs

Cf. A000081, A001694, A061775, A111299, A214577, A276625, A277098, A303431.
Cf. A317102, A317707, A317708, A317709, A317710, A317711, A317712, A317717, A317718, A317719.

Programs

  • Mathematica
    powgoQ[n_]:=Or[n==1,And[Min@@FactorInteger[n][[All,2]]>1,And@@powgoQ/@PrimePi/@FactorInteger[n][[All,1]]]];
Select[Range[1000],powgoQ] (* Gus Wiseman, Aug 31 2018 *)
(* Second program: *)
Nest[Function[a, Append[a, Block[{k = a[[-1]] + 1}, While[Nand[AllTrue[#[[All, -1]], # > 1 & ], AllTrue[PrimePi[#[[All, 1]] ], MemberQ[a, #] &]] &@ FactorInteger@ k, k++]; k]]], {1}, 44] (* Michael De Vlieger, Aug 05 2018 *)

Extensions

Rewritten by Gus Wiseman, Aug 31 2018

A318612 Matula-Goebel numbers of powerful rooted trees.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 16, 17, 19, 23, 25, 27, 31, 32, 36, 49, 53, 59, 64, 67, 72, 81, 83, 97, 100, 103, 108, 121, 125, 127, 128, 131, 144, 151, 196, 200, 216, 225, 227, 241, 243, 256, 277, 288, 289, 311, 324, 331, 343, 359, 361, 392, 400, 419, 431, 432
Offset: 1

Views

Author

Gus Wiseman, Aug 30 2018

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. A positive integer n is a Matula-Goebel number of a powerful rooted tree iff either n = 1 or n is a prime number whose prime index is a Matula-Goebel number of a powerful rooted tree or n is a powerful number (meaning its prime multiplicities are all greater than 1) whose prime indices are all Matula-Goebel numbers of powerful rooted trees.

Examples

			The sequence of all powerful rooted trees together with their Matula-Goebel numbers begins:
   1: o
   2: (o)
   3: ((o))
   4: (oo)
   5: (((o)))
   7: ((oo))
   8: (ooo)
   9: ((o)(o))
  11: ((((o))))
  16: (oooo)
  17: (((oo)))
  19: ((ooo))
  23: (((o)(o)))
  25: (((o))((o)))
  27: ((o)(o)(o))
  31: (((((o)))))

Crossrefs

Complement of A317719.
Cf. A000081, A001694, A061775, A111299, A214577, A276625, A303431, A317102, A317705, A317707.

Programs

  • Mathematica
    powgoQ[n_]:=Or[n==1,If[PrimeQ[n],powgoQ[PrimePi[n]],And[Min@@FactorInteger[n][[All,2]]>1,And@@powgoQ/@PrimePi/@FactorInteger[n][[All,1]]]]];
Select[Range[1000],powgoQ]

A318690 Matula-Goebel numbers of powerful uniform rooted trees.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 16, 17, 19, 23, 25, 27, 31, 32, 36, 49, 53, 59, 64, 67, 81, 83, 97, 100, 103, 121, 125, 127, 128, 131, 151, 196, 216, 225, 227, 241, 243, 256, 277, 289, 311, 331, 343, 361, 419, 431, 441, 484, 509, 512, 529, 541, 563, 625, 661, 691
Offset: 1

Views

Author

Gus Wiseman, Aug 31 2018

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. A positive integer n is a Matula-Goebel number of a powerful uniform rooted tree iff either n = 1 or n is a prime number whose prime index is a Matula-Goebel number of a powerful uniform rooted tree or n is a squarefree number taken to a power > 1 whose prime indices are all Matula-Goebel numbers of powerful uniform rooted trees.

Examples

			The sequence of all powerful uniform rooted trees together with their Matula-Goebel numbers begins:
   1: o
   2: (o)
   3: ((o))
   4: (oo)
   5: (((o)))
   7: ((oo))
   8: (ooo)
   9: ((o)(o))
  11: ((((o))))
  16: (oooo)
  17: (((oo)))
  19: ((ooo))
  23: (((o)(o)))
  25: (((o))((o)))
  27: ((o)(o)(o))
  31: (((((o)))))
  32: (ooooo)
  36: (oo(o)(o))
  49: ((oo)(oo))

Links

Crossrefs

Cf. A000081, A001694, A061775, A072774, A214577, A317705, A317707, A317710, A317717, A317719, A318611, A318612, A318689, A318692.

Programs

  • Mathematica
    powunQ[n_]:=Or[n==1,If[PrimeQ[n],powunQ[PrimePi[n]],And[SameQ@@FactorInteger[n][[All,2]],Min@@FactorInteger[n][[All,2]]>1,And@@powunQ/@PrimePi/@FactorInteger[n][[All,1]]]]];
Select[Range[100],powunQ]
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.