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.

A298303 Matula-Goebel numbers of rooted trees with thinning limbs.

This page as a plain text file.
%I A298303 #7 Jan 17 2018 04:28:19
%S A298303 1,2,3,4,5,6,8,9,10,11,12,14,15,16,18,20,21,22,24,25,26,27,28,30,31,
%T A298303 32,33,35,36,39,40,42,44,45,46,48,49,50,52,54,55,56,58,60,62,63,64,65,
%U A298303 66,69,70,72,75,76,77,78,80,81,84,86,87,88,90,91,92,93,94
%N A298303 Matula-Goebel numbers of rooted trees with thinning limbs.
%C A298303 An unlabeled rooted tree has thinning limbs if its outdegrees are weakly decreasing from root to leaves.
%t A298303 MGtree[n_]:=If[n===1,{},MGtree/@Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t A298303 thinQ[t_]:=And@@Cases[t,b_List:>Length[b]>=Max@@Length/@b,{0,Infinity}];
%t A298303 Select[Range[200],thinQ[MGtree[#]]&]
%Y A298303 Cf. A000081, A007097, A061775, A111299, A124343, A124346, A214577, A276625, A290760, A291636, A298126, A298120, A298304, A298305.
%K A298303 nonn
%O A298303 1,2
%A A298303 _Gus Wiseman_, Jan 16 2018