A147718 Primes of the form prime(x)^2 + (prime(x) - 1)^2.

5, 13, 41, 313, 1013, 1861, 3613, 7321, 9941, 10513, 13613, 20201, 21013, 34061, 52813, 59513, 99013, 218461, 277513, 353641, 370661, 391613, 424121, 427813, 481181, 584281, 632813, 702113, 750313, 820481, 825613, 904513, 1073113

Offset

1,1

Comments

These primes are hypotenuses of right triangles in which all sides are natural numbers.

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

aa = {}; Do[If[PrimeQ[Prime[x]^2 + (Prime[x] - 1)^2], AppendTo[aa, Prime[x]^2 + (Prime[x] - 1)^2]], {x, 1, 1000}]; aa

Crossrefs

Cf. A020882, A008846.

Sequence in context: A046717 A352916 A085601 * A111009 A012172 A316536

Adjacent sequences: A147715 A147716 A147717 * A147719 A147720 A147721

Keyword

nonn

Author

Artur Jasinski, Nov 11 2008

Status

approved