A035245 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= -13.

1, 4, 7, 9, 11, 13, 16, 17, 19, 25, 28, 29, 31, 36, 44, 47, 49, 52, 53, 59, 61, 63, 64, 67, 68, 71, 76, 77, 81, 83, 91, 99, 100, 101, 112, 113, 116, 117, 119, 121, 124, 133, 143, 144, 151, 153, 157, 163, 167, 169, 171, 173, 175, 176, 181, 187, 188, 196, 203

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn

Crossrefs

Cf. A035177 (the expansion itself).

Programs

PARI

m=-13; 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