cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A035195 Coefficients in expansion of Dirichlet series Product_p (1-(Kronecker(m,p)+1)*p^(-s)+Kronecker(m,p)*p^(-2s))^(-1) for m = 13.

Original entry on oeis.org

1, 0, 2, 1, 0, 0, 0, 0, 3, 0, 0, 2, 1, 0, 0, 1, 2, 0, 0, 0, 0, 0, 2, 0, 1, 0, 4, 0, 2, 0, 0, 0, 0, 0, 0, 3, 0, 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 2, 1, 0, 4, 1, 2, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 1, 0, 0, 0, 2, 4, 0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 5
Offset: 1

Views

Author

Keywords

Comments

Coefficients of Dedekind zeta function for the quadratic number field of discriminant 13. See A002324 for formula and Maple code. - N. J. A. Sloane, Mar 22 2022

Crossrefs

Dedekind zeta functions for imaginary quadratic number fields of discriminants -3, -4, -7, -8, -11, -15, -19, -20 are A002324, A002654, A035182, A002325, A035179, A035175, A035171, A035170, respectively.
Dedekind zeta functions for real quadratic number fields of discriminants 5, 8, 12, 13, 17, 21, 24, 28, 29, 33, 37, 40 are A035187, A035185, A035194, A035195, A035199, A035203, A035188, A035210, A035211, A035215, A035219, A035192, respectively.

Programs

  • Mathematica
    a[n_] := If[n < 0, 0, DivisorSum[n, KroneckerSymbol[13, #] &]]; Table[ a[n], {n, 1, 100}] (* G. C. Greubel, Apr 27 2018 *)
  • PARI
    my(m=13); direuler(p=2,101,1/(1-(kronecker(m,p)*(X-X^2))-X))
    
  • PARI
    a(n) = sumdiv(n, d, kronecker(13, d)); \\ Amiram Eldar, Nov 18 2023

Formula

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 2*log((3+sqrt(13))/2)/sqrt(13) = 0.662735... . - Amiram Eldar, Oct 11 2022
From Amiram Eldar, Nov 18 2023: (Start)
a(n) = Sum_{d|n} Kronecker(13, d).
Multiplicative with a(13^e) = 1, a(p^e) = (1+(-1)^e)/2 if Kronecker(13, p) = -1 (p is in A038884), and a(p^e) = e+1 if Kronecker(13, p) = 1 (p is in A038883 \ {13}). (End)

A296937 Rational primes that decompose in the field Q(sqrt(13)).

Original entry on oeis.org

3, 17, 23, 29, 43, 53, 61, 79, 101, 103, 107, 113, 127, 131, 139, 157, 173, 179, 181, 191, 199, 211, 233, 251, 257, 263, 269, 277, 283, 311, 313, 337, 347, 367, 373, 389, 419, 433, 439, 443, 467, 491, 503, 521, 523, 547, 563, 569, 571, 599, 601, 607, 641
Offset: 1

Views

Author

N. J. A. Sloane, Dec 26 2017

Keywords

Comments

Is this the same sequence as A141188 or A038883? - R. J. Mathar, Jan 02 2018
From Jianing Song, Apr 21 2022: (Start)
Primes p such that Kronecker(13, p) = Kronecker(p, 13) = 1, where Kronecker() is the Kronecker symbol. That is to say, primes p that are quadratic residues modulo 13.
Primes p such that p^6 == 1 (mod 13).
Primes p == 1, 3, 4, 9, 10, 12 (mod 13). (End)

Crossrefs

Cf. A011583 (kronecker symbol modulo 13), A038883.
Rational primes that decompose in the quadratic field with discriminant D: A139513 (D=-20), A191019 (D=-19), A191018 (D=-15), A296920 (D=-11), A033200 (D=-8), A045386 (D=-7), A002144 (D=-4), A002476 (D=-3), A045468 (D=5), A001132 (D=8), A097933 (D=12), this sequence (D=13), A296938 (D=17).
Cf. A038884 (inert rational primes in the field Q(sqrt(13))).

Programs

Formula

Equals A038883 \ {13}. - Jianing Song, Apr 21 2022

A035256 Positive integers of the form x^2+3xy-y^2.

Original entry on oeis.org

1, 3, 4, 9, 12, 13, 16, 17, 23, 25, 27, 29, 36, 39, 43, 48, 49, 51, 52, 53, 61, 64, 68, 69, 75, 79, 81, 87, 92, 100, 101, 103, 107, 108, 113, 116, 117, 121, 127, 129, 131, 139, 144, 147, 153, 156, 157, 159, 169, 172, 173, 179, 181, 183, 191, 192, 196, 199, 204, 207, 208, 211, 212, 221, 225, 233, 237, 243, 244, 251
Offset: 1

Views

Author

Keywords

Comments

This is an indefinite quadratic form of discriminant 13.
Also, positive integers of the form x^2+6xy-4y^2 (an indefinite quadratic form of discriminant 52).
Also, 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= 13.
From Klaus Purath, May 07 2023: (Start)
Also, positive integers of the form x^2 + (2m+1)xy + (m^2+m-3)y^2, m, x, y integers. This includes the form in the name.
Also, positive integers of the form x^2 + 2mxy + (m^2-13)y^2, m, x, y integers. This includes the form in the comment above.
This sequence contains all squares. The prime factors of the terms except for {2, 5, 7, 11, 19, ...} = A038884 are terms of the sequence. Also the products of terms belong to the sequence. Thus this set of terms is closed under multiplication.
A positive integer N belongs to the sequence if and only if N (modulo 13) is a term of A010376 and, moreover, in the case that prime factors p of N are terms of A038884, they occur only with even exponents. For these prime factors also p (modulo 13) = {2, 5, 6, 7, 8, 11} applies. (End)

Crossrefs

Primes in this sequence = A038883 and A141188.
Cf. A035195.

Programs

  • Mathematica
    formQ[n_] := Reduce[a > 0 && b > 0 && n == a^2 + 3 a*b - b^2, {a, b}, Integers] =!= False; Select[Range[100], formQ] (* Wesley Ivan Hurt, Jun 18 2014 *)
  • PARI
    m=13; select(x -> x, direuler(p=2,101,1/(1-(kronecker(m,p)*(X-X^2))-X)), 1) \\ Fixed by Andrey Zabolotskiy, Jul 30 2020

Extensions

Entry revised by N. J. A. Sloane, Jun 01 2014
Showing 1-3 of 3 results.