|
|
A341571
|
|
Fourier coefficients of the modular form (1/t_{6a}) * (1-6*sqrt(-3)/t_{6a}) * (1-12*sqrt(-3)/t_{6a})^(5/3) * F_{6a}^16.
|
|
0
|
|
|
1, 21, -666, -34048, -655335, -7427988, -55630666, -290463138, -1104081822, -3239870284, -7842842112, -15742299384, -24417702377, -30080972403, -28964466882, 22837159352, 121791163356, 164707345152, 491149796174, 668773471470, 222330211434, 722181385964, 715812714486
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Here, F_{6a} is the hypergeometric function F(1/3, 1/2; 1; 12*sqrt(-3)/t_{6a}). The definition given on page 23 in the linked manuscript has a minor typo where "t_{3A}" should be "t_{6a}". - Robin Visser, Jul 31 2023
|
|
LINKS
|
|
|
PROG
|
(Sage)
def a(n):
if n==0: return 1
theta2 = sum([1]+[2*x^(k^2/2) for k in range(1, n+1)])
theta3 = sum([2*x^((k^2 + k + 1/4)/2) for k in range(n)])
phix = theta2(x=x^4)*theta2(x=x^12) + theta3(x=x^4)*theta3(x=x^12)
phiy = theta2(x=x^4)*theta3(x=x^12) + theta3(x=x^4)*theta2(x=x^12)
f = (phiy*(phix^2 - phiy^2)*phix*(phix^2 - 9*phiy^2)*(phix^2 + 3*phiy^2)^5)/2
return f.taylor(x, 0, n+1).coefficient(x^(n+1/2)) # Robin Visser, Jul 31 2023
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|