A035269 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= 41.
1, 2, 4, 5, 8, 9, 10, 16, 18, 20, 23, 25, 31, 32, 36, 37, 40, 41, 43, 45, 46, 49, 50, 59, 61, 62, 64, 72, 73, 74, 80, 81, 82, 83, 86, 90, 92, 98, 100, 103, 107, 113, 115, 118, 121, 122, 124, 125, 127, 128, 131, 139, 144, 146, 148, 155, 160, 162, 163, 164
Offset: 1
Keywords
Links
- N. J. A. Sloane et al., Binary Quadratic Forms and OEIS (Index to related sequences, programs, references)
Programs
-
Mathematica
Reap[For[n = 0, n <= 100, n++, If[Reduce[ 2*x^2 + 3*x*y - 4*y^2 == n, {x, y}, Integers] =!= False, Sow[n]]]][[2, 1]] (* N. J. A. Sloane, Jun 05 2014 *) -
PARI
m=41; select(x -> x, direuler(p=2,101,1/(1-(kronecker(m,p)*(X-X^2))-X)), 1) \\ Fixed by Andrey Zabolotskiy, Jul 30 2020
Extensions
More terms from Colin Barker, Jun 17 2014
Comments