OFFSET
1,1
COMMENTS
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
MATHEMATICA
LongPoly = Series[Product[1 - q^n, {n, 1, 300}]^2, {q, 0, 300}]; ZeroTable = {}; For[i = 1, i < 301, i++, If[Coefficient[LongPoly, q^i] == 0, AppendTo[ZeroTable, i]]]; ZeroTable
PROG
(PARI)
x='x+O('x^200);
v=Vec(eta(x)^2 - 1);
for(k=1, #v, if(v[k]==0, print1(k, ", ")));
/* Joerg Arndt, Jun 07 2012 */
(Julia) # DedekindEta is defined in A000594.
function A213250List(upto)
eta = DedekindEta(upto, 2)
[n - 1 for (n, z) in enumerate(eta) if z == 0] end
println(A213250List(140)) # Peter Luschny, Jul 19 2022
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
William J. Keith, Jun 07 2012
STATUS
approved