A035246 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= -12.
1, 2, 3, 4, 6, 7, 8, 9, 12, 13, 14, 16, 18, 19, 21, 24, 25, 26, 27, 28, 31, 32, 36, 37, 38, 39, 42, 43, 48, 49, 50, 52, 54, 56, 57, 61, 62, 63, 64, 67, 72, 73, 74, 75, 76, 78, 79, 81, 84, 86, 91, 93, 96, 97, 98, 100, 103, 104, 108, 109, 111, 112, 114, 117, 121
Offset: 1
Keywords
Crossrefs
Cf. A035178 (the expansion itself).
Programs
-
PARI
m=-12; 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