|
|
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
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Also, positive numbers represented by 2x^2+3xy-4y^2, discriminant 41.
|
|
LINKS
|
|
|
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 *)
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|