%I #19 Sep 03 2020 07:16:20
%S 1,2,4,7,8,9,11,14,16,18,22,23,25,28,29,32,36,37,43,44,46,49,50,53,56,
%T 58,63,64,67,71,72,74,77,79,81,86,88,92,98,99,100,106,107,109,112,113,
%U 116,121,126,127,128,134,137,142,144,148,149,151,154,158,161,162,163,169,172,175
%N Indices of nonzero terms in expansion of Dirichlet series Product_p (1-(Kronecker(m,p)+1)*p^(-s)+Kronecker(m,p)*p^(-2s))^(-1) for m= -7 (A035182).
%C Is this A028951 with the initial 0 dropped? [_Joerg Arndt_, Dec 08 2013]
%t Reap[For[n = 1, n < 200, n++, r = Reduce[x^2 + x y + 2 y^2 == n, {x, y}, Integers]; If[r =!= False, Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Oct 31 2016 *)
%o (PARI) m=-7; v=direuler(p=2, 301, 1/(1-(kronecker(m, p)*(X-X^2))-X));
%o for(j=1,#v,if(v[j],print1(j,", ")));
%Y Cf. A028951. [From _R. J. Mathar_, Oct 20 2008]
%Y Cf. A035182 (Expansion for m= -7).
%K nonn
%O 1,2
%A _N. J. A. Sloane_.
%E Added more terms, _Joerg Arndt_, Dec 08 2013
%E Definition corrected by _Georg Fischer_, Sep 03 2020