login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #8 Jul 30 2020 12:19:40

%S 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,

%T 46,47,49,50,53,55,61,62,64,67,71,72,73,74,76,80,81,82,83,86,88,90,92,

%U 94,95,98,99,100,106,107,109,110,115,121,122,124,125,127,128

%N 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.

%o (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

%Y Cf. A035144 (the expansion itself).

%K nonn

%O 1,2

%A _N. J. A. Sloane_

%E Name corrected and more terms added by _Andrey Zabolotskiy_, Jul 30 2020