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.

A099332 Primes p such that p = a^2 + b^2 for a,b>0 and a+b is prime.

Original entry on oeis.org

2, 5, 13, 17, 29, 37, 61, 73, 89, 97, 101, 109, 149, 157, 181, 193, 229, 241, 257, 269, 277, 293, 349, 409, 421, 433, 461, 521, 541, 593, 601, 641, 661, 701, 709, 733, 769, 797, 829, 853, 881, 929, 937, 953, 997, 1009, 1021, 1049, 1061, 1069, 1109, 1117
Offset: 1

Views

Author

T. D. Noe, Oct 15 2004

Keywords

Comments

Let q=a+b. For a specific prime q, the number of distinct primes p that are the sum of two squares is A082519(q)/2.
Primes p of the form (q-b)^2 + b^2, where q is prime and 0

Examples

			29 is in this sequence because 29=2^2+5^2 and 2+5 is prime.
		

Crossrefs

Cf. A082519 (number of times that k^2 + (n-k)^2 is prime for 1 <= k <= n-1).

Programs

  • Mathematica
    Needs["NumberTheory`NumberTheoryFunctions`"]; lst={2}; Do[n=4k+1; If[PrimeQ[n], If[PrimeQ[Plus@@QuadraticRepresentation[1, n]], AppendTo[lst, n]]], {k, 500}]; lst

Formula

Primes p such that p = (q^2 + x^2)/2, where q is prime and |x| < q. - Thomas Ordowski, Feb 15 2013