A358458 Numbers k such that the k-th standard ordered rooted tree is weakly transitive (counted by A358454).
1, 2, 4, 6, 7, 8, 12, 14, 15, 16, 18, 22, 23, 24, 25, 27, 28, 30, 31, 32, 36, 38, 39, 42, 44, 45, 46, 47, 48, 50, 51, 53, 54, 55, 56, 57, 59, 60, 62, 63, 64, 70, 71, 72, 76, 78, 79, 82, 84, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 99, 100, 102, 103, 105
Offset: 1
Keywords
Examples
The terms together with their corresponding ordered trees begin: 1: o 2: (o) 4: (oo) 6: ((o)o) 7: (o(o)) 8: (ooo) 12: ((o)oo) 14: (o(o)o) 15: (oo(o)) 16: (oooo) 18: ((oo)o) 22: ((o)(o)o) 23: ((o)o(o)) 24: ((o)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],Complement[Union@@srt[#],srt[#]]=={}&]
Comments