login
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= 20.
0

%I #8 Jul 30 2020 12:24:16

%S 1,2,4,5,8,9,10,11,16,18,19,20,22,25,29,31,32,36,38,40,41,44,45,49,50,

%T 55,58,59,61,62,64,71,72,76,79,80,81,82,88,89,90,95,98,99,100,101,109,

%U 110,116,118,121,122,124,125,128,131,139,142,144,145,149,151

%N 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= 20.

%o (PARI) m=20; select(x -> x, direuler(p=2,101,1/(1-(kronecker(m,p)*(X-X^2))-X)), 1)

%Y Cf. A035202 (the expansion itself).

%K nonn

%O 1,2

%A _N. J. A. Sloane_

%E Edited and extended by _Andrey Zabolotskiy_, Jul 30 2020