OFFSET
1,2
COMMENTS
Indices of nonzero terms in expansion of Dirichlet series Product_p (1-(Kronecker(m,p)+1)*p^(-s)+Kronecker(m,p)*p^(-2s))^(-1) for m= -19 (A035171). [amended by Georg Fischer, Sep 03 2020]
PROG
(PARI) m=-19; select(x -> x, direuler(p=2, 101, 1/(1-(kronecker(m, p)*(X-X^2))-X)), 1) \\ Fixed by Andrey Zabolotskiy, Sep 03 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Jun 01 2014
STATUS
approved