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= 23.
0

%I #7 Jul 30 2020 12:19:12

%S 1,2,4,7,8,9,11,13,14,16,18,19,22,23,25,26,28,29,32,36,38,41,43,44,46,

%T 49,50,52,56,58,63,64,67,72,73,76,77,79,81,82,83,86,88,91,92,98,99,

%U 100,101,103,104,107,112,116,117,121,126,128,133,134,143,144,146

%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= 23.

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

%Y Cf. A035205 (the expansion itself).

%K nonn

%O 1,2

%A _N. J. A. Sloane_

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