|
%I #7 Jul 30 2020 12:19:21
%S 1,4,5,7,9,13,16,17,19,20,23,25,28,29,31,35,36,43,45,49,52,59,63,64,
%T 65,67,68,73,76,80,81,85,91,92,95,97,100,107,109,112,115,116,117,119,
%U 121,124,125,127,131,133,139,140,144,145,149,153,155,157,161,163
%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= 35.
%o (PARI) m=35; select(x -> x, direuler(p=2,101,1/(1-(kronecker(m,p)*(X-X^2))-X)), 1)
%Y Cf. A035217 (the expansion itself).
%K nonn
%O 1,2
%A _N. J. A. Sloane_
%E Edited and extended by _Andrey Zabolotskiy_, Jul 30 2020
|
