MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Elliptic Modular Function


Dear Mathematica Gurus,
Who know how to do Table on Mathematica
http://www.research.att.com/~njas/sequences/A000521
{1,744,196884,...
probably we have to use KleinInvariantJ[] but I can do this, who can help?
J(tau) defined
j (Ï?) is Elliptic modular function.
j (Ï?) is Elliptic modular function. j (Ï?) = E4(z)3
----------
Î?(z)

where E4(z) = 1 + 240 * â??
Σ
n=1 s3(n) e2Ï?inz

s3 (n) is the sum of the cube of the divisors of n, i.e., s3 (n) = Σ d3
d|n
dâ?¥1

Î?(z) = q â??
Π
n=1 ( 1 - qn) 24

where
q = e 2Ï?iz

see http://www.asahi-net.or.jp/~kc2h-msm/mathland/matha1/index.htm

For any help I would like to thank on advance!
Best wishes
Artur


  • Prev by Date: Re: Tooltip[] ListContourPlot[] 6.0 vs. 7.0
  • Next by Date: Re: Import numerical data and split by pattern
  • Previous by thread: Re: Exponent function question
  • Next by thread: Re: Elliptic Modular Function