|
%I #7 Jul 30 2020 12:19:16
%S 1,2,4,5,8,9,10,11,13,16,17,18,19,20,22,23,25,26,32,34,36,37,38,40,44,
%T 45,46,49,50,52,55,59,64,65,67,68,72,74,76,79,80,81,83,85,88,90,92,95,
%U 98,99,100,103,104,109,110,113,115,117,118,121,125,127,128
%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= 26.
%o (PARI) m=26; select(x -> x, direuler(p=2,101,1/(1-(kronecker(m,p)*(X-X^2))-X)), 1)
%Y Cf. A035208 (the expansion itself).
%K nonn
%O 1,2
%A _N. J. A. Sloane_
%E Edited and extended by _Andrey Zabolotskiy_, Jul 30 2020
|
