login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A035231
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= -46.
0
1, 2, 4, 5, 8, 9, 10, 11, 16, 18, 19, 20, 22, 23, 25, 31, 32, 36, 37, 38, 40, 41, 43, 44, 45, 46, 47, 49, 50, 53, 55, 61, 62, 64, 67, 71, 72, 73, 74, 76, 80, 81, 82, 83, 86, 88, 90, 92, 94, 95, 98, 99, 100, 106, 107, 109, 110, 115, 121, 122, 124, 125, 127, 128
OFFSET
1,2
PROG
(PARI) m=-46; select(x -> x, direuler(p=2, 101, 1/(1-(kronecker(m, p)*(X-X^2))-X)), 1) \\ Fixed by Andrey Zabolotskiy, Jul 30 2020
CROSSREFS
Cf. A035144 (the expansion itself).
Sequence in context: A004754 A322014 A010450 * A035259 A047614 A327609
KEYWORD
nonn
EXTENSIONS
Name corrected and more terms added by Andrey Zabolotskiy, Jul 30 2020
STATUS
approved