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.

Previous Showing 21-27 of 27 results.

A298478 Number of unlabeled rooted trees with n nodes in which all positive outdegrees are different.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 13, 15, 23, 34, 95, 106, 176, 241, 374, 942, 1129, 1760, 2515, 3711, 5136, 12857, 14911, 23814, 33002, 49141, 65798, 97056, 209707, 255042, 389725, 545290, 790344, 1071010, 1525919, 2043953, 4272124, 5110583, 7772247, 10611491, 15447864, 20496809
Offset: 1

Views

Author

Gus Wiseman, Jan 19 2018

Keywords

Comments

a(n) is the number of labeled trees with sum of the labels equal to n-1 and the outdegree of every node less than or equal to the value of its label. - Andrew Howroyd, Feb 02 2021

Examples

			The a(7) = 13 trees: ((o(ooo))), ((oo(oo))), ((ooooo)), (o((ooo))), (o(oo(o))), (o(oooo)), ((o)(ooo)), (oo((oo))), (oo(o(o))), (o(o)(oo)), (ooo(oo)), (oooo(o)), (oooooo).

Links

Crossrefs

Cf. A000081, A001190, A001678, A004111, A032305, A124343, A290689, A295461, A298118, A298304, A298422, A298479.

Programs

  • Mathematica
    krut[n_]:=krut[n]=If[n===1,{{}},Select[Join@@Function[c,Union[Sort/@Tuples[krut/@c]]]/@IntegerPartitions[n-1],UnsameQ@@Length/@Cases[#,{},{0,Infinity}]&]];
Table[krut[n]//Length,{n,15}]
  • PARI
    relabel(b)={my(w=hammingweight(b)); b = bitand((1<Andrew Howroyd, Feb 02 2021

Extensions

a(27)-a(34) from Robert G. Wilson v, Jan 19 2018
Terms a(35) and beyond from Andrew Howroyd, Feb 02 2021

A300649 Number of same-trees of weight 2n + 1 in which all outdegrees are odd and all leaves greater than 1.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 3, 1, 1, 3, 1, 2, 10, 1, 1, 3, 3, 1, 3, 1, 1, 62, 1, 2, 3, 1, 3, 3, 1, 1, 158, 3, 1, 3, 1, 1, 254, 3, 1, 1514, 1, 3, 3, 1, 3, 3, 3, 1, 2078, 1, 1, 2461, 1, 1, 3, 1, 3, 8222, 3, 2, 3, 34, 1, 3, 1, 3, 390782, 1, 1, 3, 3, 3, 2198, 1, 1
Offset: 0

Views

Author

Gus Wiseman, Mar 10 2018

Keywords

Comments

A same-tree of weight n > 0 is either a single node of weight n, or a finite sequence of two or more same-trees whose weights are all equal and sum to n.

Examples

			The a(13) = 10 odd same-trees with all leaves greater than 1:
27,
(999),
(99(333)), (9(333)9), ((333)99),
(9(333)(333)), ((333)9(333)), ((333)(333)9),
((333)(333)(333)), (333333333).

Crossrefs

Cf. A003238, A006241, A063834, A069283, A273873, A281145, A289078, A289079, A289501, A298118, A300436, A300439, A300574, A300647, A300648, A300650.

Programs

  • Mathematica
    a[n_]:=If[n===1,1,Sum[a[n/d]^d,{d,Select[Rest[Divisors[n]],OddQ]}]];
Table[a[n],{n,1,100,2}]
  • PARI
    f(n) = if (n==1, 1, sumdiv(n, d, if ((d > 1) && (d % 2), f(n/d)^d)));
a(n) = f(2*n+1); \\ Michel Marcus, Mar 10 2018

Formula

a(1) = 1; a(n > 1) = Sum_d a(n/d)^d where the sum is over odd divisors of n greater than 1.

A300650 Number of orderless same-trees of weight 2n + 1 in which all outdegrees are odd and all leaves greater than 1.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 3, 1, 1, 3, 1, 2, 6, 1, 1, 3, 3, 1, 3, 1, 1, 19, 1, 2, 3, 1, 3, 3, 1, 1, 21, 3, 1, 3, 1, 1, 28, 3, 1, 68, 1, 3, 3, 1, 3, 3, 3, 1, 25, 1, 1, 71, 1, 1, 3, 1, 3, 27, 3, 2, 3, 8, 1, 3, 1, 3, 1656, 1, 1, 3, 3, 3, 43, 1, 1, 31, 3, 1, 3, 3, 1
Offset: 0

Views

Author

Gus Wiseman, Mar 10 2018

Keywords

Comments

An orderless same-tree of weight n > 0 is either a single node of weight n, or a finite multiset of two or more orderless same-trees whose weights are all equal and sum to n.

Examples

			The a(13) = 6 orderless same-trees: 27, (999), (99(333)), (9(333)(333)), ((333)(333)(333)), (333333333).

Crossrefs

Cf. A003238, A006241, A063834, A069283, A273873, A281145, A289078, A289079, A289501, A298118, A300436, A300439, A300574, A300647, A300648, A300649.

Programs

  • Mathematica
    a[n_]:=If[n===1,1,Sum[Binomial[a[n/d]+d-1,d],{d,Select[Rest[Divisors[n]],OddQ]}]];
Table[a[n],{n,1,100,2}]
  • PARI
    f(n) = if (n==1, 1, sumdiv(n, d, if ((d > 1) && (d % 2), binomial(f(n/d)+d-1, d))));
a(n) = f(2*n+1); \\ Michel Marcus, Mar 10 2018

Formula

a(1) = 1; a(n > 1) = Sum_d binomial(a(n/d) + d - 1, d) where the sum is over odd divisors of n greater than 1.

A300652 Number of enriched p-trees of weight 2n + 1 in which all outdegrees and all leaves are odd.

Original entry on oeis.org

1, 2, 4, 12, 40, 136, 496, 1952, 7488, 30368, 123456, 512384, 2129664, 9068672, 38391552, 165642752, 713405952, 3109135872, 13528865792, 59591322624, 261549260800, 1159547047936, 5131968999424, 22883893137408, 101851069587456, 456703499042816, 2042949493276672
Offset: 0

Views

Author

Gus Wiseman, Mar 10 2018

Keywords

Comments

An enriched p-tree of weight n > 0 is either a single node of weight n, or a finite sequence of at least two enriched p-trees whose weights are weakly decreasing and sum to n.

Examples

			The a(3) = 12 trees:
7,
(511), (331),
((111)31), (3(111)1), ((311)11), (31111),
((111)(111)1), (((111)11)11), ((11111)11), ((111)1111), (1111111).

Links

Crossrefs

Cf. A000009, A000041, A063834, A196545, A273873, A281145, A289501, A298118, A300352, A300353, A300354, A300436, A300439, A300442, A300443, A300574, A300797.

Programs

  • Mathematica
    r[n_]:=r[n]=If[OddQ[n],1,0]+Sum[Times@@r/@y,{y,Select[IntegerPartitions[n],Length[#]>1&&OddQ[Length[#]]&]}];
Table[r[n],{n,1,40,2}]
  • PARI
    seq(n)={my(v=vector(n)); for(n=1, n, v[n] = 1 + polcoef(1/prod(k=1, n-1, 1 - v[k]*x^(2*k-1) + O(x^(2*n))) - 1/prod(k=1, n-1, 1 + v[k]*x^(2*k-1) + O(x^(2*n))), 2*n-1)/2); v} \\ Andrew Howroyd, Aug 26 2018

Formula

a(n) = (1 - (-1)^n)/2 + Sum_y Product_{i in y} a(i) where the sum is over all non-singleton integer partitions of n with an odd number of parts.

A300797 Number of strict trees of weight 2n + 1 in which all outdegrees and all leaves are odd.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 4, 6, 11, 17, 34, 59, 118, 213, 424, 799, 1606, 3072, 6216, 12172, 24650, 48710, 99333, 198237, 405526, 815267, 1673127, 3387165, 6974702, 14179418, 29285048, 59841630, 123848399, 253927322, 526936694, 1084022437, 2253778793, 4649778115
Offset: 0

Views

Author

Gus Wiseman, Mar 13 2018

Keywords

Comments

A strict tree of weight n > 0 is either a single node of weight n, or a sequence of two or more strict trees with strictly decreasing weights summing to n.

Examples

			The a(7) = 6 strict trees: 15, (11 3 1), (9 5 1), (7 5 3), ((7 3 1) 3 1), ((5 3 1) 5 1).

Links

Crossrefs

Cf. A000009, A000992, A032305, A063834, A078408, A089259, A196545, A273873, A279785, A289501, A298118, A300301, A300352, A300353, A300436, A300439, A300440, A300652.

Programs

  • Mathematica
    a[n_]:=a[n]=If[OddQ[n],1,0]+Sum[Times@@a/@ptn,{ptn,Select[IntegerPartitions[n],Length[#]>1&&OddQ[Length[#]]&&UnsameQ@@#&]}];
Table[a[n],{n,1,60,2}]
  • PARI
    seq(n)={my(v=vector(n)); for(n=1, n, v[n] = 1 + polcoef(prod(k=1, n-1, 1 + v[k]*x^(2*k-1) + O(x^(2*n))) - prod(k=1, n-1, 1 - v[k]*x^(2*k-1) + O(x^(2*n))), 2*n-1)/2); v} \\ Andrew Howroyd, Aug 26 2018

Extensions

a(30)-a(37) from Alois P. Heinz, Mar 13 2018

A298205 Matula-Goebel numbers of rooted trees in which all outdegrees are either 0, 1, or 3.

Original entry on oeis.org

1, 2, 3, 5, 8, 11, 12, 18, 19, 20, 27, 30, 31, 37, 44, 45, 50, 61, 66, 67, 71, 75, 76, 99, 103, 110, 113, 114, 124, 125, 127, 148, 157, 165, 171, 186, 190, 193, 197, 222, 229, 242, 244, 268, 275, 279, 283, 284, 285, 310, 317, 331, 333, 353, 363, 366, 370, 379
Offset: 1

Views

Author

Gus Wiseman, Jan 14 2018

Keywords

Examples

			Sequence of rooted trees begins:
1  o
2  (o)
3  ((o))
5  (((o)))
8  (ooo)
11 ((((o))))
12 (oo(o))
18 (o(o)(o))
19 ((ooo))
20 (oo((o)))
27 ((o)(o)(o))
30 (o(o)((o)))
31 (((((o)))))
37 ((oo(o)))
44 (oo(((o))))
45 ((o)(o)((o)))
50 (o((o))((o)))

Crossrefs

Cf. A000081, A000598, A014591, A026424, A032305, A061775, A111299, A276625, A292050, A295461, A297571, A298126, A298118, A298120, A298204, A298207.

Programs

  • Mathematica
    primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
stQ[n_]:=Or[n===1,With[{m=primeMS[n]},MemberQ[{1,3},Length[m]]&&And@@stQ/@m]];
Select[Range[10000],stQ]

A318485 Number of p-trees of weight 2n + 1 in which all outdegrees are odd.

Original entry on oeis.org

1, 1, 2, 5, 13, 37, 107, 336, 1037, 3367, 10924, 36438, 121045, 412789, 1398168, 4831708, 16636297, 58084208, 202101971, 712709423, 2502000811, 8880033929, 31428410158, 112199775788, 399383181020, 1433385148187, 5128572792587, 18481258241133
Offset: 0

Views

Author

Gus Wiseman, Aug 27 2018

Keywords

Comments

A p-tree of weight n with odd outdegrees is either a single node (if n = 1) or a finite odd-length sequence of at least 3 p-trees with odd outdegrees whose weights are weakly decreasing and sum to n.

Examples

			The a(4) = 13 p-trees of weight 9 with odd outdegrees:
  ((((ooo)oo)oo)oo)
  (((ooo)(ooo)o)oo)
  (((ooo)oo)(ooo)o)
  ((ooo)(ooo)(ooo))
  (((ooooo)oo)oo)
  (((ooo)oooo)oo)
  ((ooooo)(ooo)o)
  (((ooo)oo)oooo)
  ((ooo)(ooo)ooo)
  ((ooooooo)oo)
  ((ooooo)oooo)
  ((ooo)oooooo)
  (ooooooooo)

Links

Crossrefs

Cf. A027193, A063834, A078408, A196545, A279374, A289501, A298118, A300300, A300301, A300355, A300436, A300647, A300652, A300797, A302243.

Programs

  • Mathematica
    b[n_]:=b[n]=If[n>1,0,1]+Sum[Times@@b/@y,{y,Select[IntegerPartitions[n],Length[#]>1&&OddQ[Length[#]]&]}];
Table[b[n],{n,1,20,2}]
  • PARI
    seq(n)={my(v=vector(n)); v[1]=1; for(n=2, n, v[n] = polcoef(1/prod(k=1, n-1, 1 - v[k]*x^(2*k-1) + O(x^(2*n))) - 1/prod(k=1, n-1, 1 + v[k]*x^(2*k-1) + O(x^(2*n))), 2*n-1)/2); v} \\ Andrew Howroyd, Aug 27 2018
Previous Showing 21-27 of 27 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.