A358376 Numbers k such that the k-th standard ordered rooted tree is lone-child-avoiding (counted by A005043).
1, 4, 8, 16, 18, 25, 32, 36, 50, 57, 64, 72, 100, 114, 121, 128, 137, 144, 200, 228, 242, 249, 256, 258, 274, 281, 288, 385, 393, 400, 456, 484, 498, 505, 512, 516, 548, 562, 569, 576, 770, 786, 793, 800, 897, 905, 912, 968, 996, 1010, 1017, 1024, 1032, 1096
Offset: 1
Keywords
Examples
The initial terms and their corresponding trees: 1: o 4: (oo) 8: (ooo) 16: (oooo) 18: ((oo)o) 25: (o(oo)) 32: (ooooo) 36: ((oo)oo) 50: (o(oo)o) 57: (oo(oo)) 64: (oooooo) 72: ((oo)ooo) 100: (o(oo)oo) 114: (oo(oo)o) 121: (ooo(oo)) 128: (ooooooo) 137: ((oo)(oo)) 144: ((oo)oooo) 200: (o(oo)ooo)
Links
Crossrefs
Programs
-
Mathematica
stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse; srt[n_]:=If[n==1,{},srt/@stc[n-1]]; Select[Range[100],FreeQ[srt[#],[_]?(Length[#]==1&)]&]
Comments