Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A001936
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A001936 Expansion of q^(-1/4)(eta(q^4)/eta(q))^2 in powers of q.
(Formerly M1372 N0532)
+0
9
1, 2, 5, 10, 18, 32, 55, 90, 144, 226, 346, 522, 777, 1138, 1648, 2362, 3348, 4704, 6554, 9056, 12425, 16932, 22922, 30848, 41282, 54946, 72768, 95914, 125842, 164402, 213901, 277204, 357904, 460448, 590330, 754368, 960948, 1220370, 1545306 (list; graph; listen)
OFFSET

0,2

REFERENCES

A. Cayley, A memoir on the transformation of elliptic functions, Collected Mathematical Papers. Vols. 1-13, Cambridge Univ. Press, London, 1889-1897, Vol. 9, p. 128.

H. R. P. Ferguson, D. E. Nielsen and G. Cook, A partition formula for the integer coefficients of the theta function nome, Math. Comp., 29 (1975), 851-855.

N. J. Fine, Basic Hypergeometric Series and Applications, Amer. Math. Soc., 1988; Eq. (34.3).

N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

LINKS

T. D. Noe, Table of n, a(n) for n=0..1000

FORMULA

G.f.: Product ( 1 - x^k )^(-c(k)); c(k) = 2, 2, 2, 0, 2, 2, 2, 0, ....

G.f.: eta(q^4)^2/(eta(q)^2*q^(1/4)) where eta = Dedekind's function.

A079006(n) = (-1)^n a(n).

Expansion of q^(-1/4)(1/2)(k/k')^(1/2) in powers of q.

Euler transform of period 4 sequence [2, 2, 2, 0, ...].

Given g.f. A(x), then B(x)=(x*A(x^4))^4 satisfies 0=f(B(x), B(x^2)) where f(u, v)=(1+16u)(1+16v)v-u^2 . - Michael Somos Jul 09 2005

Given g.f. A(x), then B(x)=x*A(x^4) satisfies 0=f(B(x), B(x^3)) where f(u, v)=(u^2+v^2)^2 -uv(1+4uv)^2 . - Michael Somos Jul 09 2005

G.f.: (Product_{k>0} (1+x^(2k))/(1-x^(2k-1)))^2 = (Product_{k>0} (1-x^(4k))/(1-x^k))^2 = square of g.f. for A001935.

MAPLE

with (numtheory): etr:= proc(p) local b; b:=proc(n) option remember; local d, j; if n=0 then 1 else add (add (d*p(d), d=divisors(j)) *b(n-j), j=1..n)/n fi end end: a:= etr (n-> [2, 2, 2, 0] [modp(n-1, 4)+1]): seq (a(n), n=0..38); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de), Sep 08 2008]

PROGRAM

(PARI) a(n)=if(n<0, 0, polcoeff((eta(x^4+x*O(x^n))/eta(x+x*O(x^n)))^2, n))

(PARI) a(n)=if(n<0, 0, polcoeff(prod(k=1, n, 1/if(k%4, 1-x^k, 1), 1+x*O(x^n))^2, n))

CROSSREFS

See A127391, A127392, A079006 for other versions of this sequence.

A079006(n)=(-1)^n a(n). Convolution square of A001935.

Sequence in context: A006327 A103577 A079006 this_sequence A127297 A018739 A011893

Adjacent sequences: A001933 A001934 A001935 this_sequence A001937 A001938 A001939

KEYWORD

nonn

AUTHOR

N. J. A. Sloane (njas(AT)research.att.com).

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified December 21 10:15 EST 2009. Contains 171081 sequences.


AT&T Labs Research