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 A248748 #22 Feb 27 2025 05:05:20 %S A248748 1,2,4,16,48,192,704,3072,12032,52736,219136,985088,4218880,19144704, %T A248748 84066304,387088384,1725497344,7989886976,36128948224,168658206720, %U A248748 770103574528,3611291549696,16636941697024,78453223194624,363787840389120,1721209150504960 %N A248748 Number of rooted binary trees with n leaves and each internal vertex colored in one of two colors. %C A248748 For n>1, a(n) is the number of bipolar networks one can build from n identical impedances by combining smaller networks either in series or in parallel. %C A248748 Also for n>1, given two symmetric binary operations f(x,y) and g(x,y), such as two different means of x and y, one can use them (and just them) to form up to a(n) distinct expressions with n arguments x1,x2,...,x5. %H A248748 Stanislav Sykora, <a href="/A248748/b248748.txt">Table of n, a(n) for n = 1..1000</a> %F A248748 a(n) = A000992(n)*2^(n-1). %e A248748 a(5)=48 because there are three binary trees with 5 leaves, namely, (1,((1,1),(1,1))); (1,(1,(1,(1,1)))); ((1,1),(1,(1,1))); and each of their four (5-1) internal vertices can be colored in 2 ways, giving rise to 3*2^4 = 48 possibilities. The "coloring" can be indicated by means of two different kinds of parentheses, for example (1,[(1,1),[1,1]]). %e A248748 It also implies that 5 identical impedances can be wired together in 48 ways, iterating only simple series/parallel bondings. %e A248748 Also, given two different means f(x,y) and g(x,y) of two numbers (e.g., an arithmetic and a geometric one), these can be combined to form 48 distinct means of 5 arguments x1,x2,x3,x4,x5. One such mean, for example, is f(x1,g(f(x2,x3),g(x4,x5))), corresponding to (1,[(1,1),[1,1]]). %o A248748 (PARI) v=vector(1000); v[1]=1; \\ Use any desired size %o A248748 for(n=2,#v, v[n]=sum(k=1,n\2,v[k]*v[n-k])); \\ v = A000992 %o A248748 for(n=1,#v, v[n]*=2^(n-1)); v \\ Final multiplication and result display %Y A248748 Cf. A000992. %K A248748 nonn %O A248748 1,2 %A A248748 _Stanislav Sykora_, Oct 13 2014