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-7 of 7 results.

A300443 Number of binary enriched p-trees of weight n.

Original entry on oeis.org

1, 1, 2, 3, 8, 15, 41, 96, 288, 724, 2142, 5838, 17720, 49871, 151846, 440915, 1363821, 4019460, 12460721, 37374098, 116809752, 353904962, 1109745666, 3396806188, 10712261952, 33006706419, 104357272687, 323794643722, 1027723460639, 3204413808420, 10193485256501
Offset: 0

Views

Author

Gus Wiseman, Mar 05 2018

Keywords

Comments

A binary enriched p-tree of weight n is either a single node of weight n, or an ordered pair of binary enriched p-trees with weakly decreasing weights summing to n.

Examples

			The a(4) = 8 binary enriched p-trees: 4, (31), (22), ((21)1), ((11)2), (2(11)), (((11)1)1), ((11)(11)).

Links

Crossrefs

Cf. A000992, A001190, A063834, A196545, A273873, A289501, A300354, A300439, A300442.

Programs

  • Maple
    a:= proc(n) option remember;
      1+add(a(j)*a(n-j), j=1..n/2)
    end:
seq(a(n), n=0..40);  # Alois P. Heinz, Mar 06 2018
  • Mathematica
    j[n_]:=j[n]=1+Sum[Times@@j/@y,{y,Select[IntegerPartitions[n],Length[#]===2&]}];
Array[j,40]
(* Second program: *)
a[n_] := a[n] = 1 + Sum[a[j]*a[n-j], {j, 1, n/2}];
a /@ Range[0, 40] (* Jean-François Alcover, May 12 2021, after Alois P. Heinz *)
  • PARI
    seq(n)={my(v=vector(n)); for(n=1, n, v[n] = 1 + sum(k=1, n\2, v[k]*v[n-k])); concat([1], v)} \\ Andrew Howroyd, Aug 26 2018

Formula

a(n) = 1 + Sum_{x + y = n, 0 < x <= y < n} a(x) * a(y).

A301364 Regular triangle where T(n,k) is the number of enriched p-trees of weight n with k leaves.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 4, 5, 1, 2, 6, 11, 12, 1, 3, 10, 26, 38, 34, 1, 3, 13, 39, 87, 117, 92, 1, 4, 19, 69, 181, 339, 406, 277, 1, 4, 23, 95, 303, 707, 1198, 1311, 806, 1, 5, 30, 143, 514, 1430, 2970, 4525, 4522, 2500, 1, 5, 35, 184, 762, 2446, 6124, 11627
Offset: 1

Views

Author

Gus Wiseman, Mar 19 2018

Keywords

Comments

An enriched p-tree of weight n > 0 is either a single node of weight n, or a finite sequence of two or more enriched p-trees with weakly decreasing weights summing to n.

Examples

			Triangle begins:
  1
  1   1
  1   1   2
  1   2   4   5
  1   2   6  11  12
  1   3  10  26  38  34
  1   3  13  39  87 117  92
  1   4  19  69 181 339 406 277
  ...
The T(5,4) = 11 enriched p-trees: (((21)1)1), ((2(11))1), (((11)2)1), ((211)1), ((21)(11)), (((11)1)2), ((111)2), ((21)11), (2(11)1), ((11)21), (2111).

Links

Crossrefs

Last entries of each row give A196545. Row sums are A289501.
Cf. A008284, A055277, A063834, A220418, A273866, A273873, A281145, A290261, A299201, A299202, A299203, A300354, A300442, A300443, A301365-A301368.

Programs

  • Mathematica
    eptrees[n_]:=Prepend[Join@@Table[Tuples[eptrees/@ptn],{ptn,Select[IntegerPartitions[n],Length[#]>1&]}],n];
Table[Length[Select[eptrees[n],Count[#,_Integer,{-1}]===k&]],{n,8},{k,n}]
  • PARI
    A(n)={my(v=vector(n)); for(n=1, n, v[n] = y + polcoef(1/prod(k=1, n-1, 1 - v[k]*x^k + O(x*x^n)), n)); apply(p->Vecrev(p/y), v)}
{ my(T=A(10)); for(n=1, #T, print(T[n])) } \\ Andrew Howroyd, Aug 26 2018

A300352 Number of strict trees of weight n with distinct leaves.

Original entry on oeis.org

1, 1, 2, 2, 3, 6, 8, 11, 17, 40, 48, 76, 109, 159, 400, 470, 745, 1057, 1576, 2103, 5267, 6022, 9746, 13390, 20099, 26542, 39396, 82074, 101387, 152291, 215676, 308937, 423587, 596511, 799022, 1623311, 1960223, 2947722, 4048704, 5845982, 7794809, 11028888
Offset: 1

Views

Author

Gus Wiseman, Mar 03 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(8) = 11 strict trees with distinct leaves: 8, (71), ((52)1), ((43)1), (62), ((51)2), (53), ((41)3), (5(21)), (521), (431).

Crossrefs

Cf. A000009, A056239, A063834, A196545, A246867, A273873, A281145, A289501, A294018, A294079, A296150, A299201, A299202, A299203, A300353, A300354, A300355.

Programs

  • Mathematica
    sps[{}]:={{}};sps[set:{i_,_}]:=
Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
str[q_]:=str[q]=If[Length[q]===1,1,Total[Times@@@Map[str,Select[sps[q],And[Length[#]>1,UnsameQ@@Total/@#]&],{2}]]];
Table[Total[str/@Select[IntegerPartitions[n],UnsameQ@@#&]],{n,1,20}]

Formula

a(n) = Sum_{i=1..A000009(n)} A294018(A246867(n,i)).

A301368 Regular triangle where T(n,k) is the number of binary enriched p-trees of weight n with k leaves.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 3, 2, 1, 2, 4, 5, 3, 1, 3, 7, 12, 12, 6, 1, 3, 9, 19, 28, 25, 11, 1, 4, 14, 36, 65, 81, 63, 24, 1, 4, 16, 48, 107, 172, 193, 136, 47, 1, 5, 22, 75, 192, 369, 522, 522, 331, 103, 1, 5, 25, 96, 284, 643, 1108, 1420, 1292, 750, 214, 1, 6
Offset: 1

Views

Author

Gus Wiseman, Mar 19 2018

Keywords

Comments

A binary enriched p-tree of weight n is either a single node of weight n, or an ordered pair of binary enriched p-trees with weakly decreasing weights summing to n.

Examples

			Triangle begins:
  1
  1   1
  1   1   1
  1   2   3   2
  1   2   4   5   3
  1   3   7  12  12   6
  1   3   9  19  28  25  11
  1   4  14  36  65  81  63  24
  1   4  16  48 107 172 193 136  47
  1   5  22  75 192 369 522 522 331 103
  ...
The T(6,3) = 7 binary enriched p-trees: ((41)1), ((32)1), (4(11)), ((31)2), ((22)2), (3(21)), ((21)3).

Links

Crossrefs

Last entries of each row give A000992. Row sums are A300443.
Cf. A001190, A008284, A055277, A063834, A196545, A273873, A289501, A292050, A298422, A298426, A300354, A300439, A300442, A301344, A301364-A301367.

Programs

  • Mathematica
    bintrees[n_]:=Prepend[Join@@Table[Tuples[bintrees/@ptn],{ptn,Select[IntegerPartitions[n],Length[#]===2&]}],n];
Table[Length[Select[bintrees[n],Count[#,_Integer,{-1}]===k&]],{n,13},{k,n}]
  • PARI
    A(n)={my(v=vector(n)); for(n=1, n, v[n] = y + sum(k=1, n\2, v[k]*v[n-k])); apply(p->Vecrev(p/y), v)}
{ my(T=A(10)); for(n=1, #T, print(T[n])) } \\ Andrew Howroyd, Aug 26 2018

A300353 Number of strict trees of weight n with odd leaves.

Original entry on oeis.org

1, 1, 0, 1, 1, 2, 2, 4, 7, 14, 24, 46, 92, 186, 368, 750, 1529, 3160, 6510, 13590, 28374, 59780, 125732, 266468, 564188, 1202842, 2560106, 5484304, 11732400, 25229068, 54187918, 116938702, 252039411, 545593378, 1179545874, 2560009400, 5550315640, 12075064432
Offset: 0

Views

Author

Gus Wiseman, Mar 03 2018

Keywords

Comments

This sequence is initially dominated by A300352 but eventually becomes much greater.
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(8) = 7 strict trees with odd leaves: (71), (53), (((51)1)1), (((31)3)1), (((31)1)3), ((31)31), (((((31)1)1)1)1).

Links

Crossrefs

Cf. A000009, A063834, A078408, A089259, A196545, A279374, A279785, A289501, A294018, A294079, A299203, A300300, A300301, A300351, A300352, A300354, A300355.

Programs

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

Formula

O.g.f: (1 + x/(1-x^2) + Product_{i>0} (1 + a(i)x^i))/2.
a(n) = Sum_{i=1..A000009(n)} A294018(A300351(n,i)).

A300355 Number of enriched p-trees of weight n with odd leaves.

Original entry on oeis.org

1, 1, 1, 3, 6, 16, 47, 132, 410, 1254, 4052, 12818, 42783, 139082, 469924, 1563606, 5353966, 18065348, 62491018, 213391790, 743836996, 2565135934, 8994087070, 31251762932, 110245063771, 385443583008, 1365151504722, 4800376128986, 17070221456536, 60289267885410
Offset: 0

Views

Author

Gus Wiseman, Mar 03 2018

Keywords

Comments

An enriched p-tree of weight n > 0 is either a single node of weight n, or a sequence of two or more enriched p-trees with weakly decreasing weights summing to n.

Examples

			The a(5) = 16 enriched p-trees of weight with odd leaves:
5,
((31)1), ((((11)1)1)1), (((111)1)1), (((11)(11))1), (((11)11)1), ((1111)1),
(3(11)), (((11)1)(11)), ((111)(11)),
(311), (((11)1)11), ((111)11),
((11)(11)1),
((11)111),
(11111).

Links

Crossrefs

Cf. A000009, A063834, A078408, A089259, A196545, A279374, A279785, A289501, A294079, A299202, A299203, A300300, A300301, A300352, A300353, A300354.

Programs

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

Formula

O.g.f: (1 + x/(1-x^2) + Prod_{i>0} 1/(1 - a(i)x^i))/2.
a(n) = Sum_{i=1..A000009(n)} A299203(A300351(n,i)).

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.
Showing 1-7 of 7 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.