OFFSET
1,2
COMMENTS
Is this A028951 with the initial 0 dropped? [Joerg Arndt, Dec 08 2013]
MATHEMATICA
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 *)
PROG
(PARI) m=-7; v=direuler(p=2, 301, 1/(1-(kronecker(m, p)*(X-X^2))-X));
for(j=1, #v, if(v[j], print1(j, ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Added more terms, Joerg Arndt, Dec 08 2013
Definition corrected by Georg Fischer, Sep 03 2020
STATUS
approved