A035252 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= 3.
1, 3, 4, 9, 11, 12, 13, 16, 23, 25, 27, 33, 36, 37, 39, 44, 47, 48, 49, 52, 59, 61, 64, 69, 71, 73, 75, 81, 83, 92, 97, 99, 100, 107, 108, 109, 111, 117, 121, 131, 132, 141, 143, 144, 147, 148, 156, 157, 167, 169, 176, 177, 179, 181, 183, 188, 191, 192, 193
Offset: 1
Keywords
Crossrefs
Cf. A035186 (the expansion itself).
Programs
-
PARI
m=3; select(x -> x, direuler(p=2,101,1/(1-(kronecker(m,p)*(X-X^2))-X)), 1)
Extensions
Edited and extended by Andrey Zabolotskiy, Jul 30 2020