|
%I #21 Jul 30 2020 12:22:24
%S 1,2,4,8,9,13,16,17,18,19,25,26,32,34,36,38,43,47,49,50,52,53,59,64,
%T 67,68,72,76,81,83,86,89,94,98,100,101,103,104,106,117,118,121,127,
%U 128,134,136,137,144,149,151,152,153,157,162,166,169,171,172,178
%N Positive integers of the form 2x^2+xy-2y^2 (discriminant 17).
%C Also, 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= 17.
%H N. J. A. Sloane et al., <a href="https://oeis.org/wiki/Binary_Quadratic_Forms_and_OEIS">Binary Quadratic Forms and OEIS</a> (Index to related sequences, programs, references)
%o (PARI) m=17; 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 Primes: A038889.
%Y Cf. A035199.
%K nonn
%O 1,2
%A _N. J. A. Sloane_
%E Entry revised by _N. J. A. Sloane_, Jun 01 2014
%E More terms from _Colin Barker_, Jun 17 2014
|
