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

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

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

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).

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.

Adjacent sequences: A001933 A001934 A001935 this_sequence A001937 A001938 A001939

Sequence in context: A006327 A103577 A079006 this_sequence A127297 A018739 A011893

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 November 9 12:23 EST 2009. Contains 166233 sequences.


AT&T Labs Research