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

A002144 Pythagorean primes: primes of the form 4*k + 1.

Original entry on oeis.org

5, 13, 17, 29, 37, 41, 53, 61, 73, 89, 97, 101, 109, 113, 137, 149, 157, 173, 181, 193, 197, 229, 233, 241, 257, 269, 277, 281, 293, 313, 317, 337, 349, 353, 373, 389, 397, 401, 409, 421, 433, 449, 457, 461, 509, 521, 541, 557, 569, 577, 593, 601, 613, 617
Offset: 1

Views

Author

Keywords

Comments

Rational primes that decompose in the field Q(sqrt(-1)). - N. J. A. Sloane, Dec 25 2017
These are the prime terms of A009003.
-1 is a quadratic residue mod a prime p if and only if p is in this sequence.
Sin(a(n)*Pi/2) = 1 with Pi = 3.1415..., see A070750. - Reinhard Zumkeller, May 04 2002
If at least one of the odd primes p, q belongs to the sequence, then either both or neither of the congruences x^2 = p (mod q), x^2 = q (mod p) are solvable, according to Gauss reciprocity law. - Lekraj Beedassy, Jul 17 2003
Odd primes such that binomial(p-1, (p-1)/2) == 1 (mod p). - Benoit Cloitre, Feb 07 2004
Primes that are the hypotenuse of a right triangle with integer sides. The Pythagorean triple is {A002365(n), A002366(n), a(n)}.
Also, primes of the form a^k + b^k, k > 1. - Amarnath Murthy, Nov 17 2003
The square of a(n) is the average of two other squares. This fact gives rise to a class of monic polynomials x^2 + bx + c with b = a(n) that will factor over the integers regardless of the sign of c. See A114200. - Owen Mertens (owenmertens(AT)missouristate.edu), Nov 16 2005
Also such primes p that the last digit is always 1 for the Nexus numbers of form n^p - (n-1)^p. - Alexander Adamchuk, Aug 10 2006
The set of Pythagorean primes is a proper subset of the set of positive fundamental discriminants (A003658). - Paul Muljadi, Mar 28 2008
A079260(a(n)) = 1; complement of A137409. - Reinhard Zumkeller, Oct 11 2008
From Artur Jasinski, Dec 10 2008: (Start)
If we take 4 numbers: 1, A002314(n), A152676(n), A152680(n) then multiplication table modulo a(n) is isomorphic to the Latin square:
1 2 3 4
2 4 1 3
3 1 4 2
4 3 2 1
and isomorphic to the multiplication table of {1, i, -i, -1} where i is sqrt(-1), A152680(n) is isomorphic to -1, A002314(n) with i or -i and A152676(n) vice versa -i or i. 1, A002314(n), A152676(n), A152680(n) are subfield of Galois field [a(n)]. (End)
Primes p such that the arithmetic mean of divisors of p^3 is an integer. There are 2 sequences of such primes: this one and A002145. - Ctibor O. Zizka, Oct 20 2009
Equivalently, the primes p for which the smallest extension of F_p containing the square roots of unity (necessarily F_p) contains the 4th roots of unity. In this respect, the n = 2 case of a family of sequences: see n=3 (A129805) and n=5 (A172469). - Katherine E. Stange, Feb 03 2010
Subsequence of A007969. - Reinhard Zumkeller, Jun 18 2011
A151763(a(n)) = 1.
k^k - 1 is divisible by 4*k + 1 if 4*k + 1 is a prime (see Dickson reference). - Gary Detlefs, May 22 2013
Not only are the squares of these primes the sum of two nonzero squares, but the primes themselves are also. 2 is the only prime equal to the sum of two nonzero squares and whose square is not. 2 is therefore not a Pythagorean prime. - Jean-Christophe Hervé, Nov 10 2013
The statement that these primes are the sum of two nonzero squares follows from Fermat's theorem on the sum of two squares. - Jerzy R Borysowicz, Jan 02 2019
The decompositions of the prime and its square into two nonzero squares are unique. - Jean-Christophe Hervé, Nov 11 2013. See the Dickson reference, Vol. II, (B) on p. 227. - Wolfdieter Lang, Jan 13 2015
p^e for p prime of the form 4*k+1 and e >= 1 is the sum of 2 nonzero squares. - Jon Perry, Nov 23 2014
Primes p such that the area of the isosceles triangle of sides (p, p, q) for some integer q is an integer. - Michel Lagneau, Dec 31 2014
This is the set of all primes that are the average of two squares. - Richard R. Forberg, Mar 01 2015
Numbers k such that ((k-3)!!)^2 == -1 (mod k). - Thomas Ordowski, Jul 28 2016
This is a subsequence of primes of A004431 and also of A016813. - Bernard Schott, Apr 30 2022
In addition to the comment from Jean-Christophe Hervé, Nov 10 2013: All powers as well as the products of any of these primes are the sum of two nonzero squares. They are terms of A001481, which is closed under multiplication. - Klaus Purath, Nov 19 2023

Examples

			The following table shows the relationship between several closely related sequences:
Here p = A002144 = primes == 1 (mod 4), p = a^2+b^2 with a < b;
a = A002331, b = A002330, t_1 = ab/2 = A070151;
p^2 = c^2 + d^2 with c < d; c = A002366, d = A002365,
t_2 = 2ab = A145046, t_3 = b^2 - a^2 = A070079,
with {c,d} = {t_2, t_3}, t_4 = cd/2 = ab(b^2-a^2).
  ---------------------------------
   p  a  b  t_1  c   d t_2 t_3  t_4
  ---------------------------------
   5  1  2   1   3   4   4   3    6
  13  2  3   3   5  12  12   5   30
  17  1  4   2   8  15   8  15   60
  29  2  5   5  20  21  20  21  210
  37  1  6   3  12  35  12  35  210
  41  4  5  10   9  40  40   9  180
  53  2  7   7  28  45  28  45  630
  ...
a(7) = 53 = A002972(7)^2 + (2*A002973(7))^2 = 7^2 + (2*1)^2 = 49 + 4, and this is the only way. - _Wolfdieter Lang_, Jan 13 2015
		

References

  • David A. Cox, "Primes of the Form x^2 + n y^2", Wiley, 1989.
  • L. E. Dickson, "History of the Theory of Numbers", Chelsea Publishing Company, 1919, Vol I, page 386
  • L. E. Dickson, History of the Theory of Numbers, Carnegie Institution, Publ. No. 256, Vol. II, Washington D.C., 1920, p. 227.
  • G. H. Hardy, Ramanujan: twelve lectures on subjects suggested by his life and work, Cambridge, University Press, 1940, p. 132.
  • M. du Sautoy, The Music of the Primes, Fourth Estate / HarperCollins, 2003; see p. 76.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
  • James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, pages 241, 243.
  • David Wells, The Penguin Dictionary of Curious and Interesting Numbers. Penguin Books, NY, 1986, Revised edition 1987. See p. 90.

Crossrefs

Cf. A004613 (multiplicative closure).
Apart from initial term, same as A002313.
For values of n see A005098.
Primes in A020668.

Programs

  • Haskell
    a002144 n = a002144_list !! (n-1)
    a002144_list = filter ((== 1) . a010051) [1,5..]
    -- Reinhard Zumkeller, Mar 06 2012, Feb 22 2011
    
  • Magma
    [a: n in [0..200] | IsPrime(a) where a is 4*n + 1 ]; // Vincenzo Librandi, Nov 23 2014
    
  • Maple
    a := []; for n from 1 to 500 do if isprime(4*n+1) then a := [op(a),4*n+1]; fi; od: A002144 := n->a[n];
    # alternative
    A002144 := proc(n)
        option remember ;
        local a;
        if n = 1 then
            5;
        else
            for a from procname(n-1)+4 by 4 do
                if isprime(a) then
                    return a;
                end if;
            end do:
        end if;
    end proc:
    seq(A002144(n),n=1..100) ; # R. J. Mathar, Jan 31 2024
  • Mathematica
    Select[4*Range[140] + 1, PrimeQ[ # ] &] (* Stefan Steinerberger, Apr 16 2006 *)
    Select[Prime[Range[150]],Mod[#,4]==1&] (* Harvey P. Dale, Jan 28 2021 *)
  • PARI
    select(p->p%4==1,primes(1000))
    
  • PARI
    A002144_next(p=A2144[#A2144])={until(isprime(p+=4),);p} /* NB: p must be of the form 4k+1. Beyond primelimit, this is *much* faster than forprime(p=...,, p%4==1 && return(p)). */
    A2144=List(5); A002144(n)={while(#A2144A002144_next())); A2144[n]}
    \\ M. F. Hasler, Jul 06 2024
    
  • Python
    from sympy import prime
    A002144 = [n for n in (prime(x) for x in range(1,10**3)) if not (n-1) % 4]
    # Chai Wah Wu, Sep 01 2014
    
  • Python
    from sympy import isprime
    print(list(filter(isprime, range(1, 618, 4)))) # Michael S. Branicky, May 13 2021
    
  • SageMath
    def A002144_list(n): # returns all Pythagorean primes <= n
        return [x for x in prime_range(5,n+1) if x % 4 == 1]
    A002144_list(617) # Peter Luschny, Sep 12 2012

Formula

Odd primes of form x^2 + y^2, (x=A002331, y=A002330, with x < y) or of form u^2 + 4*v^2, (u = A002972, v = A002973, with u odd). - Lekraj Beedassy, Jul 16 2004
p^2 - 1 = 12*Sum_{i = 0..floor(p/4)} floor(sqrt(i*p)) where p = a(n) = 4*n + 1. [Shirali]
a(n) = A000290(A002972(n)) + A000290(2*A002973(n)) = A000290(A002331(n+1)) + A000290(A002330(n+1)). - Reinhard Zumkeller, Feb 16 2010
a(n) = A002972(n)^2 + (2*A002973(n))^2, n >= 1. See the Jean-Christophe Hervé Nov 11 2013 comment. - Wolfdieter Lang, Jan 13 2015
a(n) = 4*A005098(n) + 1. - Zak Seidov, Sep 16 2018
From Vaclav Kotesovec, Apr 30 2020: (Start)
Product_{k>=1} (1 - 1/a(k)^2) = A088539.
Product_{k>=1} (1 + 1/a(k)^2) = A243380.
Product_{k>=1} (1 - 1/a(k)^3) = A334425.
Product_{k>=1} (1 + 1/a(k)^3) = A334424.
Product_{k>=1} (1 - 1/a(k)^4) = A334446.
Product_{k>=1} (1 + 1/a(k)^4) = A334445.
Product_{k>=1} (1 - 1/a(k)^5) = A334450.
Product_{k>=1} (1 + 1/a(k)^5) = A334449. (End)
From Vaclav Kotesovec, May 05 2020: (Start)
Product_{k>=1} (1 + 1/A002145(k)) / (1 + 1/a(k)) = Pi/(4*A064533^2) = 1.3447728438248695625516649942427635670667319092323632111110962...
Product_{k>=1} (1 - 1/A002145(k)) / (1 - 1/a(k)) = Pi/(8*A064533^2) = 0.6723864219124347812758324971213817835333659546161816055555481... (End)
Sum_{k >= 1} 1/a(k)^s = (1/2) * Sum_{n >= 1 odd numbers} moebius(n) * log((2*n*s)! * zeta(n*s) * abs(EulerE(n*s - 1)) / (Pi^(n*s) * 2^(2*n*s) * BernoulliB(2*n*s) * (2^(n*s) + 1) * (n*s - 1)!))/n, s >= 3 odd number. - Dimitris Valianatos, May 21 2020
Legendre symbol (-1, a(n)) = +1, for n >= 1. - Wolfdieter Lang, Mar 03 2021

A334425 Decimal expansion of Product_{k>=1} (1 - 1/A002144(k)^3).

Original entry on oeis.org

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

Views

Author

Vaclav Kotesovec, Apr 30 2020

Keywords

Examples

			0.991251116234099844239776364609097744339415...
		

References

  • B. C. Berndt, Ramanujan's notebook part IV, Springer-Verlag, 1994, p. 64-65.

Crossrefs

Formula

A334424 / A334425 = 105*zeta(3)/(4*Pi^3).
A334425 * A334427 = 8/(7*zeta(3)).

Extensions

More digits from Vaclav Kotesovec, Jun 27 2020

A080175 Fourth power of primes of the form 4k+1 (A002144).

Original entry on oeis.org

625, 28561, 83521, 707281, 1874161, 2825761, 7890481, 13845841, 28398241, 62742241, 88529281, 104060401, 141158161, 163047361, 352275361, 492884401, 607573201, 895745041, 1073283121, 1387488001, 1506138481, 2750058481
Offset: 1

Views

Author

Cino Hilliard, Mar 16 2003

Keywords

Comments

a(n) is the hypotenuse of four and only four right triangles with integral legs (Fermat). See the Dickson reference, (A) on p. 227.
In 1640 Fermat generalized the 3,4,5 Pythagorean triangle with the theorem: A prime of the form 4k+1 is the hypotenuse of one and only one right triangle with integral legs. The square of a prime of the form 4k+1 is the hypotenuse of two and only two... The cube of three and only three...

Examples

			625 is the hypotenuse of triangles 175, 600, 625; 220, 585, 625; 336, 527, 625; 375, 500, 625.
		

References

  • L. E. Dickson, History of the Theory of Numbers, Volume II, Diophantine Analysis. Carnegie Institution Publication No. 256, Vol II, Washington, DC, 1920, p. 227.
  • Morris Kline, Mathematical Thought from Ancient to Modern Times, 1972, pp. 275-276.

Crossrefs

Programs

  • Magma
    [a^4: n in [0..40] | IsPrime(a) where a is 4*n + 1 ]; // Vincenzo Librandi, Jun 24 2015
  • Maple
    seq(p^4, p = select(isprime,[seq(4*k+1,k=1..100)])); # Robert Israel, Jan 14 2015
  • Mathematica
    Select[4 Range[100] + 1, PrimeQ[#] &]^4 (* Vincenzo Librandi, Jun 24 2015 *)
  • PARI
    fermat(n) = { for(x=1,n, y=4*x+1; if(isprime(y),print1(y^4, " ")) ) }
    

Formula

a(n) = A002144(n)^4 = A080109(n)^2, n >= 1.
Product_{n>=1} (1 - 1/a(n)) = A334446. - Amiram Eldar, Dec 02 2022

Extensions

Edited: name shortened, part of old name as a comment, comment changed, Dickson reference, formula and cross references added. - Wolfdieter Lang, Jan 14 2015

A334448 Decimal expansion of Product_{k>=1} (1 - 1/A002145(k)^4).

Original entry on oeis.org

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

Views

Author

Vaclav Kotesovec, Apr 30 2020

Keywords

Comments

In general, for s>1, Product_{k>=1} (1 + 1/A002145(k)^s)/(1 - 1/A002145(k)^s) = 2^s * (2^s - 1) * zeta(s) / (zeta(s, 1/4) - zeta(s, 3/4)).

Examples

			0.98716262542222685648270126457737082772403279729282414743483...
		

References

  • B. C. Berndt, Ramanujan's notebook part IV, Springer-Verlag, 1994, p. 64-65.

Crossrefs

Formula

A334447 / A334448 = 1/(PolyGamma(3, 1/4)/(8*Pi^4) - 1).
A334446 * A334448 = 96/Pi^4.

Extensions

More digits from Vaclav Kotesovec, Jun 27 2020

A334445 Decimal expansion of Product_{k>=1} (1 + 1/A002144(k)^4).

Original entry on oeis.org

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

Views

Author

Vaclav Kotesovec, Apr 30 2020

Keywords

Comments

In general, for s>1, Product_{k>=1} (1 + 1/A002144(k)^s)/(1 - 1/A002144(k)^s) = (zeta(s, 1/4) - zeta(s, 3/4)) * zeta(s) / (2^s * (2^s + 1) * zeta(2*s)).

Examples

			1.001649664033000425378578071929390888273984404386699300089837...
		

References

  • B. C. Berndt, Ramanujan's notebook part IV, Springer-Verlag, 1994, p. 64-65.

Crossrefs

Formula

A334445 / A334446 = 35*(PolyGamma(3, 1/4)/(8*Pi^4) - 1)/34.
A334445 * A334447 = 1680 / (17*Pi^4).

Extensions

More digits from Vaclav Kotesovec, Jun 27 2020

A334450 Decimal expansion of Product_{k>=1} (1 - 1/A002144(k)^5).

Original entry on oeis.org

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

Views

Author

Vaclav Kotesovec, Apr 30 2020

Keywords

Comments

In general, for s>0, Product_{k>=1} (1 + 1/A002144(k)^(2*s+1))/(1 - 1/A002144(k)^(2*s+1)) = Pi^(2*s+1) * A000364(s) * zeta(2*s+1) / ((2^(2*s+2) + 2) * (2*s)! * zeta(4*s+2)). - Dimitris Valianatos, May 01 2020
In general, for s>1, Product_{k>=1} (1 + 1/A002144(k)^s)/(1 - 1/A002144(k)^s) = (zeta(s, 1/4) - zeta(s, 3/4)) * zeta(s) / (2^s * (2^s + 1) * zeta(2*s)).

Examples

			0.999676527079626662018246180873083701500751574379554430568432840424975981921219...
		

References

  • B. C. Berndt, Ramanujan's notebook part IV, Springer-Verlag, 1994, p. 64-65.

Crossrefs

Formula

A334449 / A334450 = 4725*zeta(5)/(16*Pi^5).
A334450 * A334452 = 32/(31*zeta(5)).

Extensions

More digits from Vaclav Kotesovec, Jun 27 2020

A330890 Decimal expansion of Product_{prime p == 1 (mod 4)} (1 + 1/p^2)/(1 - 1/p^2).

Original entry on oeis.org

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

Views

Author

Vaclav Kotesovec, Apr 30 2020

Keywords

Examples

			1.1136806181323164888618919411983199136565827547877592324456...
		

Crossrefs

Programs

  • Mathematica
    RealDigits[12*Catalan/Pi^2, 10, 120][[1]]
  • PARI
    12*Catalan/Pi^2 \\ Michel Marcus, May 01 2020

Formula

Equals 12*G/Pi^2, where G is Catalan's constant (A006752).
Equals A243380 / A088539.
Equals Sum_{q in A004613} 2^A001221(q)/q^2. - R. J. Mathar, Jan 27 2021
Equals (1 + w)/(1 - w), where w = tanh(Sum_{prime p == 1 (mod 4)} arctanh(1/p^2)) = 0.0537832523783875... Physical interpretation: the constant w is the relativistic sum of the velocities c/p^2 over all Pythagorean primes p, in units where the speed of light c = 1. - Thomas Ordowski, Nov 14 2024

Extensions

Name edited by Thomas Ordowski, Nov 15 2024
Showing 1-7 of 7 results.