A035240 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= -23 (A035167).
1, 2, 3, 4, 6, 8, 9, 12, 13, 16, 18, 23, 24, 25, 26, 27, 29, 31, 32, 36, 39, 41, 46, 47, 48, 49, 50, 52, 54, 58, 59, 62, 64, 69, 71, 72, 73, 75, 78, 81, 82, 87, 92, 93, 94, 96, 98, 100, 101, 104, 108, 116, 117, 118, 121, 123, 124, 127, 128, 131, 138, 139, 141
Offset: 1
Keywords
Crossrefs
Cf. A035167.
Programs
-
PARI
m=-23; select(x -> x, direuler(p=2, 301, 1/(1-(kronecker(m, p)*(X-X^2))-X)), 1) \\ Fixed by Andrey Zabolotskiy, Sep 03 2020
Extensions
Definition corrected by Georg Fischer, Sep 03 2020
a(50) and beyond from Andrey Zabolotskiy, Sep 03 2020