OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..1000
Fernando Q. Gouvêa, Non-ordinary primes: a story, Experimental Mathematics, Volume 6, Issue 3 (1997), 195-205.
S. C. Milne, Hankel determinants of Eisenstein series, preprint, arXiv:0009130 [math.NT], 2000.
FORMULA
a(n) == A013967(n) mod 174611. - Seiichi Manyama, Feb 02 2017
G.f.: (E_4(q)^3 - E_6(q)^2)/12^3 * E_4(q)^2. - Seiichi Manyama, Jun 09 2017
G.f.: 691/(1728*441) * (E_8(q)*E_12(q) - E_10(q)^2). - Seiichi Manyama, Jul 25 2017
EXAMPLE
q^2 + 456*q^4 + ...
MATHEMATICA
terms = 18;
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms+1}];
E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms+1}];
((E4[x]^3 - E6[x]^2)/12^3)*E4[x]^2 + O[x]^(terms+1) // CoefficientList[#, x]& // Rest (* Jean-François Alcover, Feb 27 2018, after Seiichi Manyama *)
CROSSREFS
KEYWORD
sign
AUTHOR
STATUS
approved