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

A298534 Matula-Goebel numbers of rooted trees such that every branch of the root has the same number of leaves.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 27, 29, 30, 31, 32, 33, 36, 37, 40, 41, 43, 44, 45, 47, 48, 49, 50, 53, 54, 55, 59, 60, 61, 62, 64, 66, 67, 71, 72, 73, 75, 79, 80, 81, 83, 88, 89, 90, 91, 93, 96, 97, 99, 100
Offset: 1

Views

Author

Gus Wiseman, Jan 20 2018

Keywords

Examples

			Sequence of trees begins:
1  o
2  (o)
3  ((o))
4  (oo)
5  (((o)))
6  (o(o))
7  ((oo))
8  (ooo)
9  ((o)(o))
10 (o((o)))
11 ((((o))))
12 (oo(o))
13 ((o(o)))
15 ((o)((o)))
16 (oooo)
17 (((oo)))
18 (o(o)(o))
19 ((ooo))
20 (oo((o)))
22 (o(((o))))
23 (((o)(o)))
24 (ooo(o))
25 (((o))((o)))
27 ((o)(o)(o))
29 ((o((o))))
30 (o(o)((o)))

Crossrefs

Cf. A000081, A007097, A061775, A111299, A214577, A276625, A290760, A290822, A291442, A298533, A298536.

Programs

  • Mathematica
    nn=2000;
primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
leafcount[n_]:=If[n===1,1,With[{m=primeMS[n]},If[Length[m]===1,leafcount[First[m]],Total[leafcount/@m]]]];
Select[Range[nn],SameQ@@leafcount/@primeMS[#]&]

A298538 Matula-Goebel numbers of rooted trees such that every branch of the root has the same number of nodes.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 35, 37, 41, 43, 47, 49, 53, 59, 61, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 121, 125, 127, 128, 131, 137, 139, 143, 149, 151, 157, 163, 167, 169, 173, 175, 179, 181, 187
Offset: 1

Views

Author

Gus Wiseman, Jan 21 2018

Keywords

Examples

			Sequence of trees begins:
1  o
2  (o)
3  ((o))
4  (oo)
5  (((o)))
7  ((oo))
8  (ooo)
9  ((o)(o))
11 ((((o))))
13 ((o(o)))
16 (oooo)
17 (((oo)))
19 ((ooo))
23 (((o)(o)))
25 (((o))((o)))
27 ((o)(o)(o))
29 ((o((o))))
31 (((((o)))))

Crossrefs

Cf. A000081, A007097, A061775, A111299, A214577, A276625, A290760, A291442, A297571, A298478, A298534, A298536, A298537.

Programs

  • Mathematica
    nn=500;
primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
MGweight[n_]:=If[n===1,1,1+Total[MGweight/@primeMS[n]]];
Select[Range[nn],SameQ@@MGweight/@primeMS[#]&]

A298540 Matula-Goebel numbers of rooted trees such that every branch of the root has a different number of nodes.

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, 37, 38, 39, 41, 42, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103, 106, 107, 109
Offset: 1

Views

Author

Gus Wiseman, Jan 21 2018

Keywords

Examples

			Sequence of trees begins:
1  o
2  (o)
3  ((o))
5  (((o)))
6  (o(o))
7  ((oo))
10 (o((o)))
11 ((((o))))
13 ((o(o)))
14 (o(oo))
15 ((o)((o)))
17 (((oo)))
19 ((ooo))
21 ((o)(oo))
22 (o(((o))))
23 (((o)(o)))
26 (o(o(o)))
29 ((o((o))))
30 (o(o)((o)))

Crossrefs

Cf. A000081, A007097, A061775, A111299, A214577, A276625, A290760, A291442, A297571, A298479, A298534, A298536, A298538, A298539.

Programs

  • Mathematica
    nn=500;
primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
MGweight[n_]:=If[n===1,1,1+Total[MGweight/@primeMS[n]]];
Select[Range[nn],UnsameQ@@MGweight/@primeMS[#]&]
Previous Showing 11-13 of 13 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.