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-4 of 4 results.

A097956 Primes p such that p divides 5^(p-1)/2 - 3^(p-1)/2.

Original entry on oeis.org

7, 11, 17, 43, 53, 59, 61, 67, 71, 103, 109, 113, 127, 131, 137, 163, 173, 179, 181, 191, 197, 223, 229, 233, 239, 241, 251, 257, 283, 293, 307, 311, 317, 349, 353, 359, 367, 409, 419, 421, 431, 463, 479, 487, 491, 523, 541, 547, 557, 593, 599, 601, 607, 617
Offset: 1

Views

Author

Cino Hilliard, Sep 06 2004

Keywords

Comments

From Jianing Song, Oct 13 2022: (Start)
Rational primes that decompose in the field Q(sqrt(15)).
Primes p such that kronecker(60,p) = 1.
Primes congruent to 1, 7, 11, 17, 43, 49, 53, 59 modulo 60. (End)

Examples

			7 is a term since 5^3 - 3^3 = 7*14.
		

Crossrefs

A038887, the sequence of primes that do not remain inert in the field Q(sqrt(15)), is essentially the same.
Cf. A038888 (rational primes that remain inert in the field Q(sqrt(15))).

Programs

  • Mathematica
    Select[Prime[Range[150]],Divisible[5^((#-1)/2)-3^((#-1)/2),#]&] (* Harvey P. Dale, Apr 11 2018 *)
  • PARI
    \\ s = +-1, d=diff
    ptopm1d2(n,x,d,s) = { forprime(p=3,n,p2=(p-1)/2; y=x^p2 + s*(x-d)^p2; if(y%p==0, print1(p, ", "))) }
    ptopm1d2(1000, 5, 2, -1)
    
  • PARI
    isA097956(p) == isprime(p) && kronecker(60, p) == 1 \\ Jianing Song, Oct 13 2022

A378711 Irregular triangle read by rows: row n gives the proper positive integer fundamental solutions (x, y) of x^2 - 15*y^2 = - A378710(n), for n >= 1.

Original entry on oeis.org

3, 1, 2, 1, 7, 2, 1, 1, 11, 3, 15, 4, 5, 2, 10, 3, 3, 2, 18, 5, 1, 2, 26, 7, 8, 3, 13, 4, 7, 3, 17, 5, 5, 3, 25, 7, 4, 3, 11, 4, 16, 5, 29, 8, 2, 3, 37, 10, 1, 3, 41, 11, 9, 4, 24, 7, 14, 5, 19, 6, 7, 4, 32, 9, 13, 5, 23, 7, 5, 4, 40, 11, 3, 4, 12, 5, 27, 8, 48, 13, 1, 4, 56, 15
Offset: 1

Views

Author

Wolfdieter Lang, Dec 13 2024

Keywords

Comments

The number of (x, y) pairs in the rows are: 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, ...
For details on the general proper representations of a negative integer k by forms with discriminant Disc = 60 = 4*15 see A378710, with references. For the Pell case x^2 - 15*y^2 only a subset of these k values is permitted, namely those that have representative reduced primitive forms (rpapfs) Fpa(-k, j) (see A378710) equivalent to the principal reduced form CR(1) = [1, 6, -6], which is in turn equivalent to the Pell form FPell = [1, 0, -15].
Some rules for the represented -A378710(n) values are: the negative of the prime factors 2, 3 and 5 of 15 are not represented, they are equivalent to some of the other three 2-cycles forms. Powers of these three primes can never occur because they cannot be lifted (see the Apostol reference, Theorem 5.20, pp. 121-122). The products -2*3 and -3*5 are represented but not -2*5 (the rpapf [-10, 10, -1] is equivalent to [-1, 6, 6], a member of the 2-cycle called CRhat in A378710). -2*3*5 is also not represented ([-30, 30, -7] is equivalent to [2, 6, -3] from the cycle Chat).
The reservoir for the odd primes >= 7 is given by Legendre(15, p) = +1 (A097956 or A038887(n), n >= 4). These primes can be lifted uniquely, but one has to find out for each case, also for the product of powers of these primes (together with 2, 3, and 5 factors) if the rpapfs reach the fundamental cycle CR.
The number of infinite families of proper solutions for k = -A378710(n) with positive y is determined by 2^P(n), where P(n) is the number of primes >= 7 in A378710(n). These numbers 2^P(n) are given in the table below, and in the first comment.
The proper family of solutions {(x(n,i), y(n,i))}_{i = -infinity ... +infinity} are found from the rpapf(-A378710(n), j) = [-A378710(n), 2*j, (15 - j^2)/A378710(n)] with the help of the formula (x(n, i), y(n, i))^T = (+ or - B15)*(-Auto15)^i*Rtvalues(n,j)^(-1)*(1, 0)^T, for the solutions of j^2 - 15 == 0 (mod(A378710(n)), for j from 0, 1,.., A378710(n) - 1, (T for transpose) where B15 = R(0)*R(3) = -Matrix([1, 3], [0, 1]), Auto15 = R(-1)*R(6) = - Matrix([1, 6], [1, 7]). For the R(t)-transformation matrix see A378710(n). Rtvalues(n,j) is the product of R(t) matrices with the t-values leading from the rpapf(-A378710(n), j) to the form CR(1). The sign of B15 is chosen such that no negative values for y appear.
The powers (- Auto15)^i = Matrix([S(i, 8) - 7*S(i-1, 8), 6*S(i-1, 8)], [S(-i, 8), S(i, 8) - S(i-1, 8)]), with the Chebyshev polynomial S(i, 8) given, for i >= -1, in A001090(i) and S_(-i, 8) = -S(i-2, 8), for i >= 2.

Examples

			n,  A378710(n) \  k   1  2    3   4    5  6    7  8       pairs = 2^P
----------------------------------------------------------------------
1,    6 = 2*3      |  3  1                                    1
2,   11            |  2  1,   7   2                           2
3,   14 = 2*7      |  1  1,  11   3                           2
4,   15 = 3*5      | 15  4                                    1
5,   35 = 5*7      |  5  2,  10   3                           2
6,   51 = 3*17     |  3  2,  18   5                           2
7,   59            |  1  2,  26   7                           2
8,   71            |  8  3,  13   4                           2
9,   86 = 2*43     |  7  3,  17   5                           2
10, 110 = 2*5*11   |  5  3,  25   7                           2
11  119 = 7*17     |  4  3,  11   4,  16  5,  29  8           4
12, 131            |  2  3,  37  10                           2
13, 134 = 2*67     |  1  3,  41  11                           2
14, 159 = 3*53     |  9  4,  24   7                           2
15, 179            | 14  5,  19   6                           2
16, 191            |  7  4,  32   9                           2
17, 206 = 2*103    | 13  5,  23   7                           2
18, 215 = 5*43     |  5  4,  40  11                           2
19, 231 = 3*7*11   |  3  4,  12   5,  27  8,  48 13           4
20, 239            |  1  4,  56  15                           2
...
For the representation of -A378710(19) = -231 = -3*7*11 see the linked Figure of the directed and weighted Pell cycle graph with the two pairs of conjugate rpapfs (corresponding to solution of the congruence j^2 - 15 = = 0 (mod 231) with j and 231 - j, for j = 57 and j = 90. There the t-values are given as weights. E.g., the rpapf Fpa4 = [-231. 282, -86] has t-values (1-, 2, 2, 6). The pairs of row n = 19 belong to FPa1, FPa3, Fpa4 and FPa2, with the i exponents in the formula above  0, 0, 1, 1, respectively, and the sign of B15 is - in all four cases.
		

References

  • T. M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1986.

Crossrefs

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

Original entry on oeis.org

1, 2, 1, 3, 1, 2, 2, 4, 1, 2, 2, 3, 0, 4, 1, 5, 2, 2, 0, 3, 2, 4, 0, 4, 1, 0, 1, 6, 0, 2, 0, 6, 2, 4, 2, 3, 0, 0, 0, 4, 0, 4, 2, 6, 1, 0, 0, 5, 3, 2, 2, 0, 2, 2, 2, 8, 0, 0, 2, 3, 2, 0, 2, 7, 0, 4, 2, 6, 0, 4, 2, 4, 0, 0, 1, 0, 4, 0, 0, 5, 1
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

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

Formula

From Amiram Eldar, Nov 18 2023: (Start)
a(n) = Sum_{d|n} Kronecker(15, d).
Multiplicative with a(p^e) = 1 if Kronecker(15, p) = 0 (p = 3 or 5), a(p^e) = (1+(-1)^e)/2 if Kronecker(15, p) = -1 (p is in A038888), and a(p^e) = e+1 if Kronecker(15, p) = 1 (p is in A038887 \ {3, 5}).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 4*log(sqrt(15)+4)/sqrt(15) = 2.131108641007... . (End)

A378710 Positive numbers k such that -k is properly represented by the Pell Form x^2 - 15*y^2.

Original entry on oeis.org

6, 11, 14, 15, 35, 51, 59, 71, 86, 110, 119, 131, 134, 159, 179, 191, 206, 215, 231, 239, 251, 254, 294, 311, 326, 335, 339, 359, 366, 371, 374, 411, 419, 431, 446, 479, 491, 519, 515, 519, 539, 566, 590, 591, 599, 614, 635, 654, 659, 671, 686
Offset: 1

Views

Author

Wolfdieter Lang, Dec 13 2024

Keywords

Comments

This is a subsequence of A237606. There the uninteresting numbers that have improper representations are also recorded.
The primes in the sequence are given in A141302.
A primitive indefinite form F(a,b,c;x,y) = a*x^2 + b*x*y + c*y^2, or [a, b, c] with gcd(a, b, c) = 1 and even discriminant Disc = b^2 - 4*a*c = 60 = 4*D, D = 15, has class number A307359(12) = 4. The four reduced 2-cycle forms are the principal cycle CR = {[1, 6, -6], [6, 6,-1]}, CRhat = {[-1, 6, 6], [-6, 6,1]}, (outer signs flipped), Cy ={[2, 6, -3], [-3, 6, 2]} and Cyhat ={[-2, 6, 3], [3, 6, -2]}.
A proper representation of an integer k (not 0) by such a form F is determined by the rpapfs (representative parallel primitive forms) FPa(k, j) = [k, 2*j, (j^2 - 15)/k], where j from {0, 1, ...,|k|-1} is determined by the congruence j^2 - 15 = = 0 (mod |k|).
The equivalence transformations R(t) of a form F = [a, b, c] is [c , -b +2*c*t, 1 - b*t + c*t^2]. This corresponds to R(t) = Matrix([0, -1], [1, t]). Half-reduced R-transformations use the choice t = ceiling((8 + b)/(2*c) - 1), if c > 0, and t = floor(1 - (8 + b)/(2*|c|)) if c < 0. (c = 0 is not considered because Disc becomes a square).
Because any form F of Disc = 60 represents a negative integer -k if it is equivalent to one of the rpapfs FPa(-k, j), the allowed values are
k = 2^{e_2}*3^{e_3}*5^{e_5}*Product_{i=1..P} p_i^{e_j}, where p_i is an odd prime >= 7 from the sequence A097956 or A038887(n), n >= 4, the p with Legendre(15, p) = +1. The exponents for 2, 3, and 5 are from {0, 1} (these primes are not liftable to powers) and e_i >= 0 (p_i is uniquely liftable to powers, see the Apostol reference), but not all exponents should be 0, because -1 is not represented. The number of infinite families of proper solutions (x, y), with positive values y, is 2^(P).
The present sequence is a proper subset of these generally allowed k values. One has to check if the rpapfs Fpa(-k, j) reach the principal cycle CR, then if so k is a member of the present sequence. This is because the Pell form FPell = [1, 0, -15] reaches (taking t to be first 0 then 3) the cycle member CR(1) = [1, 6, -6], the reduced principal form.
For details see the W. Lang paper in the links.
For the fundamental proper positive solutions of the infinite families for - a(n) see A378711. Note that -a(n) may also have improper solutions besides the proper ones whenever even powers of primes satisfying Legendre(15, p) = +1 appear, e.g., the first instance being -294 = -2*3*7^2).

Examples

			-2, -3, and -5 are not in the sequence because the rpapfs are [-2, 2, 7] reaching after two R(t)-steps with t values -0 and  -1 the cycle member Cyhat(1), [-3, 0, 5] reaching with t values 0  and 1 Cy(1), and [-5, 0, 3] reaches with t = 0 Cyhat(2), respectively.
-a(1) = -6 = -2*3 is represented because [-6, 6, 1] = CR(2) (already a reduced form). There is only one infinite family of proper solutions with y > 0 (an ambiguous case) with fundamental solution (x, y) = (3, 1).
There is no solution representing  -10 = -2*5, because [-10, 10, -1] leads with t = -8 to CRhat(1).
-a(11) = - 119 has the four rpapfs [-119, 54, -6], [-119, 82, -14], [-119, 156, -51], and [-119, 184, -71]. They lead with t = -5,  t = -3, 4, t = -1, 2, 2, and t = -1, 3 to members CR(2), CR(1), CR(1), and CR(2), respectively.
		

References

  • T. M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1986. Theorem 5.10, pp, 121-122.
  • A. Buell, Binary Quadratic Forms. Springer-Verlag, NY, 1989, pp. 21 - 34.
  • Trygve Nagell, Introduction to Number Theory, 2nd edition, Chelsea Publishing Company, 1964, pp. 195 - 212.
  • A. Scholz and B. Schoeneberg, Einführung in die Zahlentheorie, 5. Aufl., de Gruyter, Berlin, New York, 1973, chapter IV, pp. 97 - 126.

Crossrefs

Showing 1-4 of 4 results.