%I #8 Jul 30 2020 12:24:25
%S 1,2,4,8,9,11,16,17,18,19,22,23,25,31,32,34,36,37,38,43,44,46,47,49,
%T 50,53,61,62,64,67,68,72,74,76,81,86,88,89,92,94,97,98,99,100,101,106,
%U 107,121,122,124,127,128,134,136,139,144,148,149,151,152,153,157
%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= 47.
%o (PARI) m=47; select(x -> x, direuler(p=2,101,1/(1-(kronecker(m,p)*(X-X^2))-X)), 1)
%Y Cf. A035229 (the expansion itself).
%K nonn
%O 1,2
%A _N. J. A. Sloane_
%E Edited and extended by _Andrey Zabolotskiy_, Jul 30 2020
|