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.
%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