%I A092833
%S A092833 0,1,1,1,2,2,3,4,5,6,8,10,12,15,18,22,27,32,38,46,54,64,76,89,105,123,
%T A092833 143,167,194,225,260,301,346,398,458,524,600,686,782,891,1014,1151,1306,
%U A092833 1480,1674,1892,2137,2409,2713,3053,3431,3852,4322,4842,5421,6064,6776
%N A092833 Expansion of eta(q^2)eta(q^46)/(eta(q)eta(q^23)) in powers of q.
%C A092833 Euler transform of period 46 sequence with g.f. x/(1-x^2)+x^23/(1-x^46).
%C A092833 G.f. A(x) satisfies 0=f(A(x),A(x^2)) where f(u,v)=u^2-v-2uv(1+v).
%F A092833 G.f.: x(Product_{k>0} (1+x^k)(1+x^(23k))).
%o A092833 (PARI) {a(n)=local(A, m); if(n<0, 0, A=x+O(x^2); m=1; while(m<=n, m*=2; 
               A=subst(A, x, x^2); A=A+A^2+sqrt(A+(A+A^2)^2)); polcoeff(A, n))}
%o A092833 (PARI) {a(n)=local(A); if(n<1, 0, n--; A=x*O(x^n); polcoeff(eta(x^2+A)*eta(x^46+A)/
               eta(x+A)/eta(x^23+A), n))}
%Y A092833 Sequence in context: A000009 A081360 A117409 this_sequence A100926 A157046 
               A017979
%Y A092833 Adjacent sequences: A092830 A092831 A092832 this_sequence A092834 A092835 
               A092836
%K A092833 nonn
%O A092833 0,5
%A A092833 Michael Somos, Mar 06 2004