%I #13 Jul 30 2020 12:22:06
%S 1,3,4,5,9,11,12,15,16,20,23,25,27,31,33,36,37,44,45,47,48,49,53,55,
%T 59,60,64,67,69,71,75,80,81,89,92,93,97,99,100,103,108,111,113,115,
%U 121,124,125,132,135,137,141,144,147,148,155,157,159,163,165,169,176,177,179,180,181,185,188,191,192,196,199
%N Indices of the nonzero terms in expansion of Dirichlet series Product_p (1-(Kronecker(m,p)+1)*p^(-s)+Kronecker(m,p)*p^(-2s))^(-1) for m= -11.
%t Reap[For[n = 1, n < 200, n++, r = Reduce[x^2 + x y + 3 y^2 == n, {x, y}, Integers]; If[r =!= False, Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Oct 31 2016 *)
%o (PARI) m=-11; select(x -> x, direuler(p=2,101,1/(1-(kronecker(m,p)*(X-X^2))-X)), 1) \\ Fixed by _Andrey Zabolotskiy_, Jul 30 2020
%Y Cf. A028954 (a probable duplicate). [From _R. J. Mathar_, Oct 20 2008]
%Y Cf. A035179 (the expansion itself).
%K nonn
%O 1,2
%A _N. J. A. Sloane_
%E More terms from _Jean-François Alcover_, Oct 31 2016
%E Name corrected by _Andrey Zabolotskiy_, Jul 30 2020